|
%I #2 Mar 31 2012 13:20:28
%S 2,7,17,103,467,6577,17189,61627,109919,130531,198109,239579,399557,
%T 559313,1291909,1807609,2851951,3644479,5189339,5659651,6794993,
%U 6905357,7359091,9795109,19405363,20319427,36052151,40343053,42229639,44970689
%N Primes of the form Sum[ Sum[ Prime[k], {k,1,m} ], {m,1,n} ] = A014148[n].
%C 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,...}.
%F a(n) = A014148[ A122381[n] ].
%e A014148[n] begins {2,7,17,34,62,103,161,238,338,467,627,824,1062,1343,...}.
%e a(1) = A014148[1] = 2.
%e a(2) = A014148[2] = 7.
%e a(3) = A014148[3] = 17.
%t 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}]
%Y Cf. A014148, A122381.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Aug 30 2006
|
