This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060333 #9 Dec 13 2019 05:21:03
%S A060333 193,277,353,433,443,613,643,653,673,683,739,881,1109,1129,1237,1511,
%T A060333 1531,1609,1619,1697,1873,1999,2017,2027,2113,2207,2239,2281,2371,
%U A060333 2447,2621,2657,2677,2687,2749,2801,2833,2843,2909,2927,3023,3083,3121,3167
%N A060333 Primes which are the sum of eight consecutive composite numbers.
%H A060333 Robert Israel, <a href="/A060333/b060333.txt">Table of n, a(n) for n = 1..10000</a>
%p A060333 comps:= remove(isprime, [$4..1000]):
%p A060333 S:= add(comps[i+1..i-8],i=0..7):
%p A060333 select(isprime,S); # _Robert Israel_, Dec 12 2019
%t A060333 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
%t A060333 Select[Total /@ Partition[ Select[ Range@ 500, CompositeQ], 8, 1], PrimeQ] (* _Giovanni Resta_, Dec 13 2019 *)
%Y A060333 Cf. A060254, A060328, A060329, A060330, A060331, A060332, A151738, A151739.
%K A060333 nonn
%O A060333 1,1
%A A060333 _Robert G. Wilson v_, Mar 30 2001