cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A056129 Final nonzero digit of n-th primorial.

This page as a plain text file.
%I A056129 #11 Dec 03 2024 11:40:12
%S A056129 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,
%T A056129 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,
%U A056129 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
%N A056129 Final nonzero digit of n-th primorial.
%C A056129 For n > 2, a(n) is in {1, 3, 7, 9}.
%H A056129 <a href="/index/Fi#final">Index entries for sequences related to final digits of numbers</a>
%F A056129 a(n) = prime(n)#/10 mod 10 for n > 2. - _Charles R Greathouse IV_, Dec 03 2024
%t A056129 Do[p = Product[Prime[m], {m, 1, n}]; While[Mod[p, 10] == 0, p = p/10]; Print[Mod[p, 10]], {n, 0, 100}]
%o A056129 (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
%Y A056129 Cf. A002110, A008904.
%K A056129 easy,nonn,base
%O A056129 0,2
%A A056129 _Robert G. Wilson v_, Jul 28 2000