Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Special Prime Product

• To: mathgroup at smc.vnet.net
• Subject: [mg53363] Special Prime Product
• From: "Gilmar" <gilmar.rodriguez at nwfwmd.state.fl.us>
• Date: Sat, 8 Jan 2005 02:39:30 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

I'm attempting to form a product:
_____
|  | (p-2)
|  | -------
|  | (p-1)
p Prime, p|n

I call the program:

<< NumberTheory`NumberTheoryFunctions`
and use the function "PrimeFactorList" in it,  to build
the following module:

specpriprod[n_]:=
Module[{v},v=Product[(primeFactorList[n][[i]]-2)/(primeFactorList[n][[i]]-2),
{i,Length[PrimeFactorList[n]]}];v]

specpriprod is an abbreviation for "Special Prime Product".

When I evaluate:
Table[{n,specprimprod[n]},{n,4,100,2}]

I only get specprimprod[n] = 0 for n even between 4 and 100.
Help! and Thank you for your help!

• Follow-Ups:
  • Re: Special Prime Product
    • From: Murray Eisenberg <murray@math.umass.edu>
  • Re: Special Prime Product
    • From: DrBob <drbob@bigfoot.com>