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 A192585 #7 Mar 21 2013 13:13:51 %S A192585 2,5,8,11,14,17,23,29,41,47,59,71,83,89,113,137,167,179,197,227,233, %T A192585 239,359,467,479,569,659,719,827,1097,1163,1319,1433,1439,1583,1913, %U A192585 2339,2879,3167,3347,3833,4679,5273,9227,10067,11579,15359,18713,20063 %N A192585 Monotonic ordering of set S generated by these rules: if x and y are in S and xy+1 is a prime, then xy+1 is in S, and 2, 5, 8, 11, and 14 are in S. %C A192585 Last term is a(70) = 15785183. - _Giovanni Resta_, Mar 21 2013 %H A192585 Giovanni Resta, <a href="/A192585/b192585.txt">Table of n, a(n) for n = 1..70</a> (full sequence) %t A192585 start = {2, 5, 8, 11, 14}; seq = {}; new = start; While[new != {}, seq = Union[seq, new]; fresh = new; new = {}; Do[If[PrimeQ[u = x*y + 1], If[! MemberQ[seq, u], AppendTo[new, u]]], {x, seq}, {y, fresh}]]; seq (* _Giovanni Resta_, Mar 21 2013 *) %Y A192585 Cf. A192476, A192580, A192584. %K A192585 nonn,fini,full %O A192585 1,1 %A A192585 _Clark Kimberling_, Jul 05 2011