OFFSET
1,1
FORMULA
MAPLE
MATHEMATICA
a = {}; k = 0; Do[k = k + (Prime[x])^2; AppendTo[a, Floor[Sqrt[k]]], {x, 2, 50}]; a
Module[{nn=50}, Floor[Sqrt[#]]&/@Accumulate[Prime[Range[2, nn+1]]^2]] (* Harvey P. Dale, Jul 27 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 25 2007
STATUS
approved