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 A211236 #8 Feb 04 2016 16:26:19 %S A211236 21557,26681,128981,2073347,3992201,4889237,6184637,11900501,21456047, %T A211236 24598361,33771581,34864211,50943791,55793951,56421347,61218251, %U A211236 67787537,69726647,76345121,86145881,90261707,92865791,99624647,102960281,108846161 %N A211236 Prime numbers p such that x^2 + x + p produces primes for x = 0..7 but not x = 8. %C A211236 The first term is A164926(8). %H A211236 T. D. Noe, <a href="/A211236/b211236.txt">Table of n, a(n) for n = 1..1000</a> %t A211236 lookfor = 8; t = {}; n = 0; While[Length[t] < 25, n++; c = Prime[n]; i = 1; While[PrimeQ[i^2 + i + c], i++]; If[i == lookfor, AppendTo[t, c]]]; t %t A211236 Select[Prime[Range[6250000]],AllTrue[#+{2,6,12,20,30,42,56}, PrimeQ] && !PrimeQ[ #+72]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 04 2016 *) %Y A211236 Cf. A067774, A164926. %K A211236 nonn %O A211236 1,1 %A A211236 _T. D. Noe_, Apr 08 2012