login
A157492
Apply partial sum operator twice to sequence of squares of the first n primes.
3
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
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
Partial sums of A024450.
Sequence in context: A046995 A001585 A060262 * A108140 A213577 A255526
KEYWORD
nonn
AUTHOR
STATUS
approved