|
Search: id:A060331
|
|
|
| A060331 |
|
Primes the sum of six consecutive composite numbers. |
|
+0
1
|
|
| 59, 239, 311, 419, 467, 541, 599, 661, 971, 1009, 1031, 1259, 1381, 1499, 1549, 1571, 1979, 1993, 2029, 2161, 2267, 2341, 2447, 2687, 2953, 3061, 3253, 3371, 3469, 3529, 3671, 3779, 3793, 3889, 3911, 4091, 4139, 4153, 4261, 4391, 4513, 4729, 4789, 5279
(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 ] + composite[ n + 5 ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 2000} ]; a
|
|
CROSSREFS
|
Sequence in context: A140626 A114353 A059256 this_sequence A060263 A033238 A118624
Adjacent sequences: A060328 A060329 A060330 this_sequence A060332 A060333 A060334
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 30 2001
|
|
|
Search completed in 0.002 seconds
|
