The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #6 Nov 18 2022 12:38:07
%S 59,239,311,419,467,541,599,661,971,1009,1031,1259,1381,1499,1549,
%T 1571,1979,1993,2029,2161,2267,2341,2447,2687,2953,3061,3253,3371,
%U 3469,3529,3671,3779,3793,3889,3911,4091,4139,4153,4261,4391,4513,4729,4789,5279
%N Primes the sum of six consecutive composite numbers.
%H Harvey P. Dale, <a href="/A060331/b060331.txt">Table of n, a(n) for n = 1..1000</a>
%t 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
%t Module[{nn=1000,cmps},cmps=Select[Range[nn],CompositeQ];Select[Total/@ Partition[ cmps,6,1],PrimeQ]] (* _Harvey P. Dale_, Nov 18 2022 *)
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Mar 30 2001