OFFSET
1,1
COMMENTS
FORMULA
a(n) = Sum[ Prime[k]^2, {k,1,n^2} ]. a(n) = A024450[n^2].
MATHEMATICA
Table[Sum[Prime[k]^2, {k, 1, n^2}], {n, 1, 50}]
Module[{nn=600, t}, t=Accumulate[Prime[Range[nn]]^2]; Table[t[[i]], {i, Range[ Floor[ Sqrt[nn]]]^2}]] (* Harvey P. Dale, Dec 21 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 25 2006
STATUS
approved