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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Mar 30 2001
STATUS
approved