[go: up one dir, main page]

login
A180452
Primes of the form floor(n^sqrt(Pi)).
1
3, 7, 11, 17, 23, 31, 59, 107, 151, 167, 239, 367, 439, 491, 601, 631, 691, 919, 1063, 2309, 2909, 3083, 3823, 4019, 4219, 4423, 5431, 5507, 5659, 5813, 6047, 7451, 9551, 10037, 10837, 10939, 14071, 16673, 17291, 19073, 19993, 21067, 21613, 25163
OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Floor[Range[350]^Sqrt[Pi]], PrimeQ] (* Harvey P. Dale, Apr 23 2022 *)
PROG
(PARI) for(n=1, 1e4, if(ispseudoprime(t=floor(n^sqrt(Pi))), print1(t", "))); v \\ Charles R Greathouse IV, Feb 18 2011
CROSSREFS
A134707 INTERSECT A000040.
Sequence in context: A333996 A262502 A211076 * A294479 A331968 A029715
KEYWORD
easy,nonn
AUTHOR
William A. Tedeschi, Sep 07 2010
EXTENSIONS
Formula rewritten by R. J. Mathar, Sep 09 2010
STATUS
approved