|
Search: id:A067372
|
|
|
| A067372 |
|
Integers expressible as the sum of (at least two) consecutive primes in at least 2 ways. |
|
+0
12
|
|
| 36, 41, 60, 72, 83, 90, 100, 112, 119, 120, 138, 143, 152, 180, 187, 197, 199, 204, 210, 221, 223, 228, 240, 251, 258, 276, 281, 287, 300, 304, 311, 323, 330, 340, 371, 372, 384, 390, 395, 401, 408, 410, 434, 439, 456, 462, 473, 480, 491, 492, 508, 510, 533
(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. 36 = (17 + 19) = (5 + 7 + 11 + 13) or (#2,17) (#4,5).
|
|
MATHEMATICA
|
m=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]], AppendTo[lst, lst1[[n]]]], {n, Length[lst1]-1}]; Union[lst] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2009]
|
|
CROSSREFS
|
Cf. A050936, A067372-A067381, A054997.
Sequence in context: A077090 A067672 A060292 this_sequence A084147 A044862 A162526
Adjacent sequences: A067369 A067370 A067371 this_sequence A067373 A067374 A067375
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), Feb 04 2002.
|
|
|
Search completed in 0.002 seconds
|
