A157493 Apply partial sum operator thrice to sequence of squares of the first n primes.

4, 21, 76, 218, 568, 1295, 2688, 5108, 9084, 15457, 25188, 39646, 60512, 89635, 129224, 182088, 251708, 341805, 456868, 601938, 782344, 1004327, 1274776, 1601612, 1994244, 2462873, 3018108, 3671398, 4434624, 5320555, 6345320

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Keywords

• nonn

Crossrefs

Cf. A001223, A014148, A014150, A061789, A069482, A129701, A157492.

Programs

Mathematica

s0=s1=s2=0; Table[s0+=Prime[n]^2; s1+=s0; s2+=s1, {n,100}]
Nest[Accumulate,Prime[Range[40]]^2,3]  (* Harvey P. Dale, Jan 27 2011 *)