|
| |
|
|
A164556
|
|
Primes expressible as the sum of (at least two) consecutive primes in at least 5 ways.
|
|
0
|
|
|
|
34421, 229841, 235493, 271919, 345011, 358877, 414221, 442019, 488603, 532823, 621937, 655561, 824099, 888793, 896341, 935791, 954623, 963173, 988321, 1055969, 1083371, 1083941, 1115911, 1170857, 1261763, 1338823, 1352863, 1409299
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Subsequence of A067380.
|
|
|
LINKS
|
Table of n, a(n) for n=1..28.
|
|
|
FORMULA
|
A067375 INTERSECT A000040.
|
|
|
EXAMPLE
|
a(1) = 34421 = sum_{i=57..127} prime(i) = sum_{i=226..248} prime(i) = sum_{i=527..535} prime(i) =
sum_{i=654..660} prime(i) = sum_{i=1382..1384} prime(i) and
a(3) = 235493 = sum_{i=50..284} prime(i) = sum_{i=120..300} prime(i) = sum_{i=123..301} prime(i) =
sum_{i=334..424} prime(i) = sum_{i=7701..7703} prime(i)
are expressible in 5 ways as the sum of two or more consecutive primes.
|
|
|
MATHEMATICA
|
m=3*7!; lst={}; Do[p=Prime[a]; Do[p+=Prime[b]; If[PrimeQ[p]&&p<Prime[m]*3+8, AppendTo[lst, p]], {b, a+1, m, 1}], {a, m}]; lst1=Sort[lst]; lst={};
Do[If[lst1[[n]]==lst1[[n+1]]&&lst1[[n]]==lst1[[n+2]]&&lst1[[n]]==lst1[[n+3]]&&lst1[[n]]==lst1[[n+4]], AppendTo[lst, lst1[[n]]]], {n, Length[lst1]-4}]; Union[lst]
|
|
|
CROSSREFS
|
Cf. A067377, A067378, A067379, A067380, A067381.
Sequence in context: A206214 A204411 A055001 * A068703 A225025 A081428
Adjacent sequences: A164553 A164554 A164555 * A164557 A164558 A164559
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Aug 15 2009
|
|
|
EXTENSIONS
|
Examples added by R. J. Mathar, Aug 19 2009
a(10)-a(28) from Donovan Johnson, Sep 16 2009
|
|
|
STATUS
|
approved
|
| |
|
|
