|
Search: id:A060330
|
|
|
| A060330 |
|
Primes the sum of five consecutive composite numbers. |
|
+0
3
|
|
| 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; listen)
|
|
|
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 this_sequence A101940 A036540 A141166
Adjacent sequences: A060327 A060328 A060329 this_sequence A060331 A060332 A060333
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 30 2001
|
|
|
Search completed in 0.002 seconds
|
