A056129 Final nonzero digit of n-th primorial.

1, 2, 6, 3, 1, 1, 3, 1, 9, 7, 3, 3, 1, 1, 3, 1, 3, 7, 7, 9, 9, 7, 3, 9, 1, 7, 7, 1, 7, 3, 9, 3, 3, 1, 9, 1, 1, 7, 1, 7, 1, 9, 9, 9, 7, 9, 1, 1, 3, 1, 9, 7, 3, 3, 3, 1, 3, 7, 7, 9, 9, 7, 1, 7, 7, 1, 7, 7, 9, 3, 7, 1, 9, 3, 9, 1, 3, 7, 9, 9, 1, 9, 9, 9, 7, 3, 9, 1, 7, 7, 1, 7, 3, 1, 1, 9, 7, 3, 3, 9, 9

Offset

0,2

Links

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

Index entries for sequences related to final digits of numbers

Mathematica

Do[p = Product[Prime[m], {m, 1, n}]; While[Mod[p, 10] == 0, p = p/10]; Print[Mod[p, 10]], {n, 0, 100}]

Crossrefs

Cf. A002110, A008904.

Sequence in context: A104290 A152549 A136759 * A059433 A021042 A136694

Adjacent sequences: A056126 A056127 A056128 * A056130 A056131 A056132

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Jul 28 2000

Status

approved