OFFSET
1,1
MATHEMATICA
Select[Prime[Range[800]], PrimeQ[Floor[Pi*#^2]]&] (* James C. McMahon, Mar 30 2025 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Oct 06 2007
EXTENSIONS
Edited and corrected by N. J. A. Sloane, Oct 21 2007
STATUS
approved
