|
%I #9 Jul 13 2015 22:37:03
%S 5,11,17,23,29,59,61,67,73,79,83,101,127,131,167,173,179,193,199,223,
%T 229,241,281,283,307,311,317,331,337,349,367,373,379,397,409,419,431,
%U 439,449,457,461,467,479,487,491,503,509,523,541,547,563,577,587,599
%N Prime numbers which are impossible numbers of trailing zeros in the decimal representation of the factorial of any prime number.
%C Prime entries in A181573.
%F A181573 INTERSECT A000040.
%t f[n_] := IntegerExponent[ Prime@ n!, 10]; Select[ Complement[ Range[0, 600], Array[f, 360]], PrimeQ] (* _Robert G. Wilson v_, Nov 05 2010 *)
%Y Cf. A181573.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Nov 01 2010
%E More terms from _Robert G. Wilson v_, Nov 05 2010
|
