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

%I #9 May 19 2019 14:50:28

%S 4,21,76,218,568,1295,2688,5108,9084,15457,25188,39646,60512,89635,

%T 129224,182088,251708,341805,456868,601938,782344,1004327,1274776,

%U 1601612,1994244,2462873,3018108,3671398,4434624,5320555,6345320

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

%t s0=s1=s2=0; Table[s0+=Prime[n]^2; s1+=s0; s2+=s1, {n,100}]

%t Nest[Accumulate,Prime[Range[40]]^2,3] (* _Harvey P. Dale_, Jan 27 2011 *)

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Mar 01 2009