|
%I #17 Apr 23 2022 13:46:32
%S 3,7,11,17,23,31,59,107,151,167,239,367,439,491,601,631,691,919,1063,
%T 2309,2909,3083,3823,4019,4219,4423,5431,5507,5659,5813,6047,7451,
%U 9551,10037,10837,10939,14071,16673,17291,19073,19993,21067,21613,25163
%N Primes of the form floor(n^sqrt(Pi)).
%H Charles R Greathouse IV, <a href="/A180452/b180452.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Floor[Range[350]^Sqrt[Pi]],PrimeQ] (* _Harvey P. Dale_, Apr 23 2022 *)
%o (PARI) for(n=1, 1e4, if(ispseudoprime(t=floor(n^sqrt(Pi))), print1(t", "))); v \\ _Charles R Greathouse IV_, Feb 18 2011
%Y A134707 INTERSECT A000040.
%K easy,nonn
%O 1,1
%A _William A. Tedeschi_, Sep 07 2010
%E Formula rewritten by _R. J. Mathar_, Sep 09 2010
|
