OFFSET
1,1
MATHEMATICA
Floor[Sqrt[#]]&/@Select[Prime[Range[300]], Mod[#, 4]==1&] (* Harvey P. Dale, Jun 04 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 02 2003
STATUS
approved