Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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




  • 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