|
|
A152471
|
|
Primes p such that the sum of p consecutive primes starting from p is prime.
|
|
3
|
|
|
2, 5, 11, 19, 29, 31, 67, 107, 109, 131, 211, 277, 367, 383, 503, 547, 563, 577, 607, 643, 653, 661, 691, 751, 827, 877, 967, 1009, 1033, 1063, 1109, 1153, 1193, 1283, 1549, 1607, 1811, 1847, 1913, 1951, 2027, 2069, 2087, 2141, 2203, 2267, 2269, 2351, 2447
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
2+3 = 5 (prime); start from 2, sum of two consecutive primes is prime.
5+7+11+13+17 = 53 (prime); start from 5, sum of five consecutive primes is prime.
11+13+17+19+23+29+31+37+41+43+47 = 311 (prime); start from 11, sum of eleven consecutive primes is prime.
19+23+29+31+37+41+43+47+53+59+61+67+71+73+79+83+89+97+101 = 1103 (prime); start from 19, sum of 19 consecutive primes is prime.
|
|
MATHEMATICA
|
lst={}; Do[s=0; Do[p=Prime[n]; If[s==0, p0=p]; s+=p, {n, a, a+Prime[a]-1}]; If[PrimeQ[s], AppendTo[lst, p0]], {a, 1, 6!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|