|
Search: id:A060333
|
|
|
| A060333 |
|
Primes the sum of eight consecutive composite numbers. |
|
+0
1
|
|
| 193, 277, 353, 433, 443, 613, 643, 653, 673, 683, 739, 881, 1109, 1129, 1237, 1511, 1531, 1609, 1619, 1697, 1873, 1999, 2017, 2027, 2113, 2207, 2239, 2281, 2371, 2447, 2621, 2657, 2677, 2687, 2749, 2801, 2833, 2843, 2909, 2927, 3023, 3083, 3121, 3167
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); a = {}; Do[ p = Sum[ composite[ n + k ], {k, 0, 7} ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 600} ]; a
|
|
CROSSREFS
|
Sequence in context: A114859 A088119 A142925 this_sequence A020352 A146338 A146360
Adjacent sequences: A060330 A060331 A060332 this_sequence A060334 A060335 A060336
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 30 2001
|
|
|
Search completed in 0.002 seconds
|
