MathGroup Archive 2000

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

Search the Archive

RE: Product of the first 1000th Prime


Hi Antoine

first find a bound:
  FindRoot[PrimePi[x]==1000,{x,1,2}]  (gives 7921.xx)

now filter for primes:
  lis=Select[Range[7922],PrimeQ]

do we have 1000 ?
  Length[lis]

make product:
  res=Apply[Times,lis]

save it to file:
  Write["c:\\product.txt", BaseForm[res,16]];
  Close["c:\\product.txt"];

-----Mensaje original-----
De: Antoine Bruguier [mailto:antoine.bruguier at soon.com]
Enviado el: Martes, 11 de Abril de 2000 10:19 p.m.
Para: mathgroup at smc.vnet.net
Asunto: [mg23026] Product of the first 1000th Prime


Hi,

I would like to have a text file with the product of the first 1000th
prime number. Moreover, it would like to have this numbre displayed in
hexadecimal.

Thanks a lot,
Antoine




  • Prev by Date: Re: Needs[] and <<
  • Next by Date: Is there a similar data structure to Splus' dataframe?
  • Previous by thread: Re: Product of the first 1000th Prime
  • Next by thread: Re: Product of the first 1000th Prime