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,2

Links

Table of n, a(n) for n=0..104.

Mathematica

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

Crossrefs

Cf. A008905.

Sequence in context: A011042 A256127 A136758 * A251755 A128203 A144531

Adjacent sequences: A056110 A056111 A056112 * A056114 A056115 A056116

Keyword

nonn,base,easy

Author

Robert G. Wilson v, Jul 28 2000

Status

approved