OFFSET
1,1
MATHEMATICA
a = {}; k = 0; Do[k = k + x^2; AppendTo[a, Floor[Sqrt[k]]], {x, 2, 150, 2}]; a
Floor[Sqrt[#]]&/@Accumulate[Range[2, 120, 2]^2] (* Harvey P. Dale, Nov 04 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 25 2007
EXTENSIONS
Definition clarified by Harvey P. Dale, Nov 04 2012
STATUS
approved