|
| |
|
|
A013916
|
|
Numbers n such that the sum of the first n primes is prime.
|
|
17
| |
|
|
1, 2, 4, 6, 12, 14, 60, 64, 96, 100, 102, 108, 114, 122, 124, 130, 132, 146, 152, 158, 162, 178, 192, 198, 204, 206, 208, 214, 216, 296, 308, 326, 328, 330, 332, 334, 342, 350, 356, 358, 426, 446, 458, 460, 464, 480, 484, 488, 512, 530, 536, 548, 568, 620, 630, 676, 680
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| David W. Wilson, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
| a(n) = A000720(A013917(n))
|
|
|
MAPLE
| p:=proc(n) if isprime(sum(ithprime(k), k=1..n))=true then n else fi end: seq(p(n), n=1..690); (Deutsch)
|
|
|
MATHEMATICA
| s = 0; Do[s = s + Prime[n]; If[PrimeQ[s], Print[n]], {n, 1, 1000}]
Flatten[Position[Accumulate[Prime[Range[2000]]], _?(PrimeQ[#] &)]] (* From Harvey P. Dale, Dec 16 2010 *)
|
|
|
PROG
| (PARI) isA013916(n) = isprime(sum(i=1, n, prime(i))) [From Michael B. Porter (michael_b_porter(AT)yahoo.com), Jan 29 2010]
|
|
|
CROSSREFS
| Cf. A007504, A013917, A013918.
Sequence in context: A015636 A015663 A057830 * A141113 A050584 A019280
Adjacent sequences: A013913 A013914 A013915 * A013917 A013918 A013919
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Renaud Lifchitz (100637.64(AT)CompuServe.COM)
|
|
|
EXTENSIONS
| More terms from David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
