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
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 01 2009
STATUS
approved