|
%I #11 Jun 06 2023 12:57:06
%S 6,7,8,9,10,12,13,15,18,19,21,22,25,35,53,55,58,73,95,120,125,150,151,
%T 192,347,402,418,490,516,608,635,648,703,764,1007,1042,1125,1159,1326,
%U 1429,1519,1682,1817,1991,2161,2295
%N Numbers k such that floor(log(Pi)^k) is prime.
%t Position[Floor[Log[Pi]^Range[2500]],_?PrimeQ]//Flatten (* _Harvey P. Dale_, Jun 06 2023 *)
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Mar 03 2002
|
