login
A060331
Primes the sum of six consecutive composite numbers.
4
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Mar 30 2001
STATUS
approved