login
A086749
Partial sums of A038580.
3
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,1
LINKS
MATHEMATICA
Accumulate[Nest[Prime, Range[45], 3]] (* Harvey P. Dale, Oct 25 2011 *)
PROG
(PARI) f(n) = y=0; for(x=1, n, y+=prime(prime(prime(x))); print1(y", "))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jul 30 2003
EXTENSIONS
Edited by N. J. A. Sloane, Apr 17 2007
STATUS
approved