A122209 Sum of squares of the first n^2 primes = A024450[n^2].
4, 87, 1556, 13275, 65796, 239087, 710844, 1789395, 4083404, 8384727, 16156884, 29194283, 50363460, 82888311, 132264452, 204330315, 306450780, 450504551, 647579748, 913503459, 1262033828, 1725350295, 2318488092, 3072687971
Offset: 1
Keywords
Programs
-
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 *)
Formula
a(n) = Sum[ Prime[k]^2, {k,1,n^2} ]. a(n) = A024450[n^2].
Comments