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 A060329 #5 Jan 02 2013 21:17:49
%S A060329 97,193,263,311,337,383,457,503,647,673,839,887,937,1009,1033,1103,
%T A060329 1223,1319,1487,1511,1583,1609,1777,1801,1823,1873,2017,2377,2423,
%U A060329 2447,2593,2617,2687,2713,2903,2927,2999,3023,3049,3361,3407,3457,3623,3671
%N A060329 Primes the sum of four consecutive composite numbers.
%H A060329 Harvey P. Dale, <a href="/A060329/b060329.txt">Table of n, a(n) for n = 1..1000</a>
%t A060329 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 ]; If[ PrimeQ[ p ], a = Append[ a, p ] ], {n, 1, 1000} ]; a
%t A060329 nn=1000;With[{comps=Complement[Range[2,nn],Prime[Range[PrimePi[ nn]]]]}, Select[ Total/@Partition[comps,4,1],PrimeQ]] (* _Harvey P. Dale_, Jan 02 2013 *)
%K A060329 nonn
%O A060329 1,1
%A A060329 _Robert G. Wilson v_, Mar 30 2001