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

Author

Alexander Adamchuk, Aug 30 2006

Keywords

• nonn

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

Examples

			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.
		

Crossrefs

Cf. A014148, A122381.

Programs

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}]

Formula

a(n) = A014148[ A122381[n] ].