RE: Product of the first 1000th Prime
- To: mathgroup at smc.vnet.net
- Subject: [mg23068] RE: [mg23026] Product of the first 1000th Prime
- From: "Alejandro Osorio" <aosorio at coatepec.uaemex.mx>
- Date: Sat, 15 Apr 2000 03:00:26 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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