A060331 Primes the sum of six consecutive composite numbers.

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

Offset: 1

Author

Robert G. Wilson v, Mar 30 2001

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

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
Module[{nn=1000,cmps},cmps=Select[Range[nn],CompositeQ];Select[Total/@ Partition[ cmps,6,1],PrimeQ]] (* Harvey P. Dale, Nov 18 2022 *)