Anonymous user
Primorial numbers: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,664:
=={{header|Mathematica}}==
The first 10 primorial numbers are:
<lang Mathematica>FoldList[Times, 1,
{{out}}
<pre>
Line 1,670:
The lengths of selected primorial numbers are:
<lang Mathematica>primes =
Grid@Table[{"primorial(10^" <> ToString[n] <> ") has ",
Length@IntegerDigits[Times @@ (primes[[;; 10^n]])], " digits"}, {n,
| |||