|
| |
|
|
A060330
|
|
Primes the sum of five consecutive composite numbers.
|
|
2
| |
|
|
37, 53, 67, 83, 97, 157, 293, 307, 353, 367, 503, 547, 683, 743, 757, 907, 953, 967, 983, 997, 1193, 1553, 1567, 1733, 1747, 2153, 2617, 2843, 2857, 3083, 3203, 3217, 3307, 4057, 4133, 4283, 4297, 5107, 5153, 5167, 5303, 6143, 6397, 6607, 7253, 7417
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); a = {}; Do[ p = composite[ n ] + composite[ n + 1 ] + composite[ n + 2 ] + composite[ n + 3 ] + composite[ n + 4 ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 1500} ]; a
|
|
|
CROSSREFS
| Sequence in context: A084548 A092105 A101938 * A101940 A036540 A141166
Adjacent sequences: A060327 A060328 A060329 * A060331 A060332 A060333
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 30 2001
|
| |
|
|
