|
Search: id:A067373
|
|
|
| A067373 |
|
Integers expressible as the sum of (at least two) consecutive primes in at least 3 ways. |
|
+0
1
|
|
| 240, 287, 311, 340, 371, 510, 660, 803, 863, 864, 931, 961, 990, 1012, 1060, 1099, 1104, 1151, 1164, 1236, 1313, 1320, 1367, 1392, 1524, 1643, 1650, 1710, 1788, 1793, 1854, 1951, 1956, 2040, 2303, 2304, 2387, 2393, 2436, 2507, 2556, 2586, 2647, 2670
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
P. De Geest, WONplate 122
C. Rivera, Puzzle 46
Eric Weisstein's World of Mathematics, Prime Sums
|
|
EXAMPLE
|
E.g. 240 = (113 + 127) = (53 + 59 + 61 + 67) = (17 + 19 + 23 + 29 + 31 + 37 + 41 + 43) or (#2,113) (#4,53) (#8,17).
|
|
MATHEMATICA
|
m=3*5!; lst={}; Do[p=Prime[a]; Do[p+=Prime[b]; If[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]], AppendTo[lst, lst1[[n]]]], {n, Length[lst1]-2}]; Union[lst] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2009]
|
|
CROSSREFS
|
Cf. A050936, A067372-A067381, A054998.
Sequence in context: A121378 A135194 A031173 this_sequence A030638 A099833 A154378
Adjacent sequences: A067370 A067371 A067372 this_sequence A067374 A067375 A067376
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), Feb 04 2002.
|
|
|
Search completed in 0.002 seconds
|
