A181577 Prime number of trailing end 0's associated with p! where p = A181576(n).

2, 2, 3, 3, 7, 13, 19, 31, 37, 41, 43, 47, 47, 53, 71, 89, 97, 103, 107, 109, 113, 113, 137, 139, 149, 151, 151, 157, 163, 181, 191, 197, 211, 227, 233, 239, 251, 257, 263, 263, 269, 271, 277, 293, 313, 347, 353, 359, 383, 389, 401, 421, 421, 433, 443, 463, 499

Offset: 1

Author

Lekraj Beedassy, Nov 02 2010

Keywords

• base
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A027868, A181575, A181576.

Programs

Mathematica

Select[ IntegerExponent[ #! ] & /@ Prime@ Range@ 310, PrimeQ] (* Robert G. Wilson v, Nov 06 2010 *)

PARI

lista(pmax) = {my(tz); forprime(p = 1, pmax, tz = (p - sumdigits(p, 5))/4; if(isprime(tz), print1(tz, ", ")));} \\ Amiram Eldar, May 03 2024

Formula

a(n) = A027868(A181576(n)). - Amiram Eldar, May 03 2024

Extensions

More terms from Robert G. Wilson v, Nov 06 2010