Re: Product of the first 1000th Prime
- To: mathgroup at smc.vnet.net
- Subject: [mg23157] Re: Product of the first 1000th Prime
- From: "DIAMOND Mark" <noname at noname.com>
- Date: Thu, 20 Apr 2000 03:21:26 -0400 (EDT)
- Organization: The University of Western Australia
- References: <8d0rd9$54c@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
(* We do it step by step, in the knowledge that there is almost certainly a
better way! *)
(*Create a table of the first 1000 primes *)
t=Table[Prime[i], {i, 1000}];
(* Generate their product *)
p=Apply[Times, t];
(* Express the result in hexadecimal, but it will be a list containing 10,
11, 12, 13, 14, 15, 16 *)
hex=IntegerDigits[p,16];
(* Replace the digits by their appropriate character codes, and then form
the string from them *)
hexString=FromCharacterCode[
h /. {0 -> 48, 1 -> 49, 2 -> 50, 3 -> 51, 4 -> 52, 5 -> 53, 6 -> 54,
7 -> 55, 8 -> 56, 9 -> 57, 10 -> 65, 11 -> 66, 12 -> 67, 13 -> 68,
14 -> 69, 15 -> 70}];
Now you just need to write out the string by whatever method you would
normally want.
Have I just passed a homework assignment?!
Cheers,
--
Mark R Diamond
Vision Research Laboratory
The University of Western Australia
no spam email: markd at psy dot uwa dot edu dot au