login
A122382
Primes of the form Sum[ Sum[ Prime[k], {k,1,m} ], {m,1,n} ] = A014148[n].
3
2, 7, 17, 103, 467, 6577, 17189, 61627, 109919, 130531, 198109, 239579, 399557, 559313, 1291909, 1807609, 2851951, 3644479, 5189339, 5659651, 6794993, 6905357, 7359091, 9795109, 19405363, 20319427, 36052151, 40343053, 42229639, 44970689
OFFSET
1,1
COMMENTS
Corresponding numbers n such that A014148[n] is prime are listed in A122381[n] = {1,2,3,6,10,23,31,46,55,58,66,70,82,91,118,131,151,163,182,187,198,199,...}.
FORMULA
a(n) = A014148[ A122381[n] ].
EXAMPLE
A014148[n] begins {2,7,17,34,62,103,161,238,338,467,627,824,1062,1343,...}.
a(1) = A014148[1] = 2.
a(2) = A014148[2] = 7.
a(3) = A014148[3] = 17.
MATHEMATICA
p=0; s=0; f=0; Do[p=Prime[n]; s=s+p; f=f+s; If[PrimeQ[f], Print[{n, f}]], {n, 1, 2000}]
CROSSREFS
Sequence in context: A154298 A225806 A283754 * A025554 A285810 A028888
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 30 2006
STATUS
approved