%I #13 May 03 2024 04:18:26
%S 2,2,3,3,7,13,19,31,37,41,43,47,47,53,71,89,97,103,107,109,113,113,
%T 137,139,149,151,151,157,163,181,191,197,211,227,233,239,251,257,263,
%U 263,269,271,277,293,313,347,353,359,383,389,401,421,421,433,443,463,499
%N Prime number of trailing end 0's associated with p! where p = A181576(n).
%H Amiram Eldar, <a href="/A181577/b181577.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A027868(A181576(n)). - _Amiram Eldar_, May 03 2024
%t Select[ IntegerExponent[ #! ] & /@ Prime@ Range@ 310, PrimeQ] (* _Robert G. Wilson v_, Nov 06 2010 *)
%o (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
%Y Cf. A027868, A181575, A181576.
%K base,nonn
%O 1,1
%A _Lekraj Beedassy_, Nov 02 2010
%E More terms from _Robert G. Wilson v_, Nov 06 2010