|
%I #9 Jan 01 2020 17:42:32
%S 4,17,55,142,350,727,1393,2420,3976,6373,9731,14458,20866,29123,39589,
%T 52864,69620,90097,115063,145070,180406,221983,270449,326836,392632,
%U 468629,555235,653290,763226,885931,1024765,1180760,1355524,1549609
%N Apply partial sum operator twice to sequence of squares of the first n primes.
%H Robert Israel, <a href="/A157492/b157492.txt">Table of n, a(n) for n = 1..10000</a>
%p ListTools:-PartialSums(ListTools:-PartialSums([seq(ithprime(i)^2,i=1..100)])); # _Robert Israel_, May 14 2019
%t s0=s1=0;lst={};Do[p=Prime[n];s0+=p^2;s1+=s0;AppendTo[lst,s1],{n,5!}];lst
%t Nest[Accumulate,Prime[Range[40]]^2,2] (* _Harvey P. Dale_, Jan 01 2020 *)
%Y Cf. A001223, A014148, A014150, A061789, A069482, A129701.
%Y Partial sums of A024450.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 01 2009
|
