Re: Product of the first 1000th Prime
- To: mathgroup at smc.vnet.net
- Subject: [mg23086] Re: [mg23026] Product of the first 1000th Prime
- From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
- Date: Sat, 15 Apr 2000 03:00:43 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
on 4/12/00 12:18 PM, Antoine Bruguier at antoine.bruguier at soon.com wrote:
> 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
>
>
You can get your number at once with
BaseForm[Product[Prime[n], {n, 1, 1000}], 16]
If you want to have it in a text file one thing you can do is something like
this:
In[1]:=
temp = OpenWrite["file.txt", FormatType -> OutputForm]
In[2]:=
Write[temp, BaseForm[Product[Prime[n], {n, 1, 1000}], 16]]
In[3]:=
Close[temp]
Out[3]=
"file.txt"
This will produce a text file file.txt in your current Directory[],
containing the number you want in something resembling Mathematica's output
form. I suspect this is not exactly the form you want (it will contain the
character / at every line-break and a subscript 16 at the end to remind you
that you have an expression in base 16) but you can easily edit it in your
text editor. This seems easier than writing a program to produce just the a
long line of hexadecimal digits.