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,1

Links

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

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 *)

Crossrefs

Sequence in context: A141977 A059256 A158666 * A158670 A142046 A142952

Adjacent sequences: A060328 A060329 A060330 * A060332 A060333 A060334

Keyword

nonn

Author

Robert G. Wilson v, Mar 30 2001

Status

approved