[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A056129
Final nonzero digit of n-th primorial.
1
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
COMMENTS
For n > 2, a(n) is in {1, 3, 7, 9}.
FORMULA
a(n) = prime(n)#/10 mod 10 for n > 2. - Charles R Greathouse IV, Dec 03 2024
MATHEMATICA
Do[p = Product[Prime[m], {m, 1, n}]; While[Mod[p, 10] == 0, p = p/10]; Print[Mod[p, 10]], {n, 0, 100}]
PROG
(PARI) a(n)=if(n<3, return([1, 2, 6][n+1])); my(m=Mod(3, 10)); forprime(p=7, prime(n), m*=p); lift(m) \\ Charles R Greathouse IV, Dec 03 2024
CROSSREFS
Sequence in context: A104290 A152549 A136759 * A059433 A021042 A136694
KEYWORD
easy,nonn,base,changed
AUTHOR
Robert G. Wilson v, Jul 28 2000
STATUS
approved