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 A088428 #4 Mar 30 2012 17:26:10 %S A088428 2,1,1,2,1,3,2,1,2,1,1,2,1,1,3,2,1,1,2,1,3,2,1,1,2,1,4,1,1,3,1,1,1,2, %T A088428 1,3,2,1,2,2,1,4,1,1,1,1,1,1,2,1,3,1,1,2,2,1,1,1,1,5,2,1,1,2,1,1,2,1, %U A088428 2,1,1,4,1,1,2,2,1,1,1,1,3,2,1,2,2,1,1,1,1,1,2,1,1,1,1,1,2,1,2,2 %N A088428 Number of primes in arithmetic progression starting with 29 and with d=2n. %C A088428 Arithmetic progression is stopped when next term is not prime. E.g. for n=6 (d=12), a=3, that is 29,41,53 are prime, while next term, 65, is not prime. %t A088428 bb={}; Do[s=1; Do[If[PrimeQ[29+k*d], s=s+1, bb={bb, s}; Break[]], {k, 10}], {d, 2, 200, 2}]; Flatten[bb] %Y A088428 Cf. A088420, A088421, A088422, A088423, A088424, A088425, A088426, A088427, A088429. %K A088428 easy,nonn %O A088428 1,1 %A A088428 _Zak Seidov_, Sep 29 2003