|
%I #43 Feb 19 2024 10:32:28
%S 3,7,13,47,109,139,251,397,457,587,659,733,1187,1291,1399,2161,2311,
%T 2621,2953,3307,4073,4273,4937,5167,5641,7477,7759,10259,10607,10957,
%U 11311,12413,13177,13567,15619,20639,23167,24781,25339,25903,28211
%N Primes of form Sum_{k=1..n} (prime(k)+1).
%C Primes of the form A007504(k) + k. - _J. M. Bergot_, Apr 10 2018
%H Seiichi Manyama, <a href="/A062736/b062736.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harry J. Smith)
%F { A000040 } intersection { A060939 }.
%e a(4) = 47 because 3+4+6+8+12+14 = 47.
%t Select[Accumulate[Prime[Range[150]]+1],PrimeQ] (* _Harvey P. Dale_, May 26 2016 *)
%o (PARI) je=[]; for(n=1,350,x=sum(k=1,n, prime(k)+1); if(isprime(x),je=concat(je,x))); je
%o (PARI) { n=a=0; for (k=1, 10^5, if (isprime(a+=prime(k) + 1), write("b062736.txt", n++, " ", a); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 10 2009
%Y Cf. A000040, A007504, A060939.
%K nonn
%O 1,1
%A _Jason Earls_, Jul 12 2001
|
