A062736 Primes of form Sum_{k=1..n} (prime(k)+1).
3, 7, 13, 47, 109, 139, 251, 397, 457, 587, 659, 733, 1187, 1291, 1399, 2161, 2311, 2621, 2953, 3307, 4073, 4273, 4937, 5167, 5641, 7477, 7759, 10259, 10607, 10957, 11311, 12413, 13177, 13567, 15619, 20639, 23167, 24781, 25339, 25903, 28211
Offset: 1
Keywords
Examples
a(4) = 47 because 3+4+6+8+12+14 = 47.
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
Programs
-
Mathematica
Select[Accumulate[Prime[Range[150]]+1],PrimeQ] (* Harvey P. Dale, May 26 2016 *)
-
PARI
je=[]; for(n=1,350,x=sum(k=1,n, prime(k)+1); if(isprime(x),je=concat(je,x))); je
-
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
Comments