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,1

Links

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

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 *)

Crossrefs

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

Partial sums of A024450.

Sequence in context: A046995 A001585 A060262 * A108140 A213577 A255526

Adjacent sequences: A157489 A157490 A157491 * A157493 A157494 A157495

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Status

approved