A122382 Primes of the form Sum[ Sum[ Prime[k], {k,1,m} ], {m,1,n} ] = A014148[n].

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,...}.

Links

Table of n, a(n) for n=1..30.

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: A154298 A225806 A283754 * A025554 A285810 A028888

Adjacent sequences: A122379 A122380 A122381 * A122383 A122384 A122385

Keyword

nonn

Author

Alexander Adamchuk, Aug 30 2006

Status

approved