Anonymous user
Primorial numbers: Difference between revisions
m
→{{header|Mathematica}}
Line 1,679:
The lengths of selected primorial numbers are:
<lang Mathematica>Grid@Table[{"primorial(10^" <> ToString[n] <> ") has ",
{timing,answer}=AbsoluteTiming[IntegerLength
" digits in "<>ToString@timing<>" seconds"}, {n,6}]</lang>
{{out}}
<pre>
primorial(10^1) has 10 digits in 0.000055 seconds
primorial(10^2) has 220
primorial(10^3) has 3393 digits in 0.000425 seconds
primorial(10^4) has 45337 digits in 0.006795 seconds
primorial(10^5) has 563921 digits in 0.076371 seconds
primorial(10^6) has 6722809 digits in 1.29307 seconds
</pre>
| |||