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 A253639 #18 Jan 05 2020 05:56:31 %S A253639 3,11,227,1091,2027,3251,13691,21611,59051,65027,91811,140627,178931, %T A253639 199811,205211,227531,328331,567011,700571,804611,815411,1071227, %U A253639 2241011,3629027,4223027,4347227,4809251,5212091,5919491,6185171,6426227,6671891,7601051,7969331,8661251,8732027,9018011,10323371 %N A253639 Lesser of twin primes of the form (k^2 + 2, k^2 + 4). %C A253639 Companion sequence to A085554 (which yields the greater of the pair) and A086381 (which lists the x-values). Except for the first term, all values are a(n)=11 (mod 72). - _M. F. Hasler_, Jan 18 2015 %H A253639 Amiram Eldar, <a href="/A253639/b253639.txt">Table of n, a(n) for n = 1..10000</a> %F A253639 Equals A059100 o A086381 = A023444 o A085554, i.e., a(n) = A086381(n)^2+2 = A085554(n)-2. - _M. F. Hasler_, Jan 18 2015 %t A253639 Transpose[Select[Table[x^2+{2,4},{x,5000}],AllTrue[#,PrimeQ]&]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) %o A253639 (PARI) forstep(x=1,9999,2,is_A086381(x)&&print1(x^2+2,",")) \\ _M. F. Hasler_, Jan 16 2015 %Y A253639 Cf. A001097, A001359, A006512, A085554, A086381, A253640. %K A253639 easy,nonn %O A253639 1,1 %A A253639 _M. F. Hasler_, Jan 16 2015