A060333 Primes which are the sum of eight consecutive composite numbers.

193, 277, 353, 433, 443, 613, 643, 653, 673, 683, 739, 881, 1109, 1129, 1237, 1511, 1531, 1609, 1619, 1697, 1873, 1999, 2017, 2027, 2113, 2207, 2239, 2281, 2371, 2447, 2621, 2657, 2677, 2687, 2749, 2801, 2833, 2843, 2909, 2927, 3023, 3083, 3121, 3167

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

comps:= remove(isprime, [$4..1000]):
S:= add(comps[i+1..i-8], i=0..7):
select(isprime, S); # Robert Israel, Dec 12 2019

Mathematica

composite[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1 != n, k++ ]; k); a = {}; Do[ p = Sum[ composite[ n + k ], {k, 0, 7} ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 600} ]; a
Select[Total /@ Partition[ Select[ Range@ 500, CompositeQ], 8, 1], PrimeQ] (* Giovanni Resta, Dec 13 2019 *)

Crossrefs

Cf. A060254, A060328, A060329, A060330, A060331, A060332, A151738, A151739.

Sequence in context: A307250 A226147 A142925 * A020352 A146338 A201858

Adjacent sequences: A060330 A060331 A060332 * A060334 A060335 A060336

Keyword

nonn

Author

Robert G. Wilson v, Mar 30 2001

Status

approved