A056113 Most significant digit of n-th primorial A002110.

1, 2, 6, 3, 2, 2, 3, 5, 9, 2, 6, 2, 7, 3, 1, 6, 3, 1, 1, 7, 5, 4, 3, 2, 2, 2, 2, 2, 2, 2, 3, 4, 5, 7, 1, 1, 2, 3, 5, 9, 1, 2, 5, 1, 1, 3, 7, 1, 3, 8, 1, 4, 1, 2, 6, 1, 4, 1, 3, 8, 2, 6, 2, 6, 1, 6, 1, 6, 2, 7, 2, 9, 3, 1, 4, 1, 6, 2, 1, 4, 1, 6, 2, 1, 5, 2, 1, 4, 2, 1, 4, 2, 1, 5, 2, 1, 6, 3, 1, 8, 4, 2, 1, 8, 4

Offset: 0

Author

Robert G. Wilson v, Jul 28 2000

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A008905.

Programs

Mathematica

Do[p = Product[Prime[m], {m, 1, n}]; Print[IntegerPart[p/10^Floor[N[Log[10, p], 12]]]], {n, 0, 121}]