A060330 Primes the sum of five consecutive composite numbers.

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

Offset

1,1

Links

Table of n, a(n) for n=1..46.

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: A350250 A092105 A101938 * A302720 A304358 A214755

Adjacent sequences: A060327 A060328 A060329 * A060331 A060332 A060333

Keyword

nonn

Author

Robert G. Wilson v, Mar 30 2001

Status

approved