MathGroup Archive 2005

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

Search the Archive

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!


  • Prev by Date: Re: logical indexing using more than one variable in a pure function
  • Next by Date: Re: precission/accuracy in mathlink for excel
  • Previous by thread: Re: Export Animation
  • Next by thread: Re: Special Prime Product