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 A060332 #6 Oct 24 2021 15:38:08
%S A060332 173,359,367,383,457,541,593,619,643,659,811,877,929,1087,1103,1129,
%T A060332 1181,1223,1481,1489,1549,1753,1787,1811,2039,2063,2129,2137,2239,
%U A060332 2297,2347,2371,2549,2557,2693,2711,2719,2767,2819,2843,2851,3061,3163,3187
%N A060332 Primes the sum of seven consecutive composite numbers.
%H A060332 Harvey P. Dale, <a href="/A060332/b060332.txt">Table of n, a(n) for n = 1..1000</a>
%t A060332 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 ] + composite[ n + 6 ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 2000} ]; a
%t A060332 Module[{upto=500,cmps},cmps=Select[Range[upto],CompositeQ];Select[ Total/@ Partition[ cmps,7,1],PrimeQ]] (* _Harvey P. Dale_, Oct 24 2021 *)
%K A060332 nonn
%O A060332 1,1
%A A060332 _Robert G. Wilson v_, Mar 30 2001