|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
| Cf. A014148, A122381.
Sequence in context: A133407 A067602 A154298 * A025554 A028888 A082627
Adjacent sequences: A122379 A122380 A122381 * A122383 A122384 A122385
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Aug 30 2006
|
| |
|
|
