A247657 Partial sums of primes, but with a twist.
5, 23, 53, 101, 359, 487, 631, 1669, 5407, 6959, 7517, 8093, 9341, 10009, 15427, 17191, 21011, 26489, 30089, 32609, 42281, 45293, 51683, 56747, 60251, 73471, 77509, 79561, 90197, 101513, 137209, 142867, 169489, 182047, 191717, 194981, 198301, 201661, 211943
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
Programs
-
Haskell
a247657 n = a247657_list !! (n-1) a247657_list = f 0 $ drop 2 a000040_list where f z (p:ps) | a010051' z' == 1 = z' : f z' (delete z' ps) | otherwise = f z' ps where z' = z + p -- Reinhard Zumkeller, Oct 01 2014
-
PARI
{omit=[];s=2;forprime(p=3,999,if(vecsearch(omit,p),omit=vecextract(omit,"^1");next); isprime(s+=p)||next;print1(s","); omit=concat(omit,s))} \\ M. F. Hasler, Oct 04 2014
Comments