login
Primes p such that the number of digits in p! is also prime.
3

%I #10 Mar 08 2018 14:00:11

%S 5,23,29,43,89,107,139,193,199,211,229,239,313,347,419,457,587,641,

%T 661,673,701,739,863,877,1091,1097,1103,1217,1259,1283,1361,1381,1447,

%U 1493,1549,1607,1609,1663,1693,1741,1861,1973,1987,2083,2251,2351,2399,2423

%N Primes p such that the number of digits in p! is also prime.

%H Vincenzo Librandi, <a href="/A067367/b067367.txt">Table of n, a(n) for n = 1..450</a>

%e a(1)=5 because 5!=120 has 3 (prime) digits.

%t Select[ Select[ Range[2500], PrimeQ[ Floor[ Log[10, #! ] + 1]] & ], PrimeQ[ # ] & ]

%t Select[Prime[Range[400]],PrimeQ[IntegerLength[#!]]&] (* _Harvey P. Dale_, Mar 08 2018 *)

%Y Cf. A035065.

%K nonn,base

%O 1,1

%A Sudipta Das (juitech(AT)vsnl.net), Feb 23 2002

%E Edited and extended by _Robert G. Wilson v_, Feb 28 2002