A086749 Partial sums of A038580.

5, 16, 47, 106, 233, 412, 689, 1020, 1451, 2050, 2759, 3678, 4741, 5894, 7191, 8714, 10501, 12348, 14569, 16950, 19427, 22176, 25177, 28436, 32073, 36016, 40107, 44380, 48777, 53326, 58707, 64330, 70199, 76312, 82973, 89796, 96989, 104596

Offset: 1

Author

Cino Hilliard, Jul 30 2003

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A006450, A038580, A083186.

Programs

Mathematica

Accumulate[Nest[Prime,Range[45],3]] (* Harvey P. Dale, Oct 25 2011 *)

PARI

f(n) = y=0; for(x=1,n,y+=prime(prime(prime(x))); print1(y","))

Extensions

Edited by N. J. A. Sloane, Apr 17 2007