OFFSET
1,1
EXAMPLE
a(1)=28=2+3+5+7+11, since s(1)=5=2+3, since p(1)=2.
MAPLE
for j from 1 to 23 do s[j]:=sum(ithprime(i), i=1..ithprime(j)); od; for j from 1 to 23 do sum(ithprime(i), i=1..s[j]); od;
MATHEMATICA
With[{prs=Prime[Range[50000]]}, Table[Total[Take[prs, Total[Take[prs, prs[[n]]]]]], {n, 30}]] (* Harvey P. Dale, May 16 2012 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Peter C. Heinig (algorithms(AT)gmx.de), Oct 13 2006
EXTENSIONS
More terms from Robert Israel, Jul 30 2020
STATUS
approved