A157492 Apply partial sum operator twice to sequence of squares of the first n primes.

4, 17, 55, 142, 350, 727, 1393, 2420, 3976, 6373, 9731, 14458, 20866, 29123, 39589, 52864, 69620, 90097, 115063, 145070, 180406, 221983, 270449, 326836, 392632, 468629, 555235, 653290, 763226, 885931, 1024765, 1180760, 1355524, 1549609

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

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

Partial sums of A024450.

Programs

Maple

ListTools:-PartialSums(ListTools:-PartialSums([seq(ithprime(i)^2,i=1..100)])); # Robert Israel, May 14 2019

Mathematica

s0=s1=0;lst={};Do[p=Prime[n];s0+=p^2;s1+=s0;AppendTo[lst,s1],{n,5!}];lst
Nest[Accumulate,Prime[Range[40]]^2,2] (* Harvey P. Dale, Jan 01 2020 *)