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 A126334 #9 Dec 24 2019 08:29:17 %S A126334 3,5,17681,21377,21587,33599,41201,41411,70139,74759,84629,109619, %T A126334 114197,130619,155861,160481,174467,219407,222977,223439,230999, %U A126334 235787,243431,284129,285641,287279,300929,325079,373211,386987,389297,397151 %N A126334 Lesser of twin primes (p,q=p+2) such that p*q-p-q and p*q+p+q are primes. %C A126334 Or, primes p such that p+2, p^2-2 and 2 + 4*p + p^2 are primes. Intersection of A128550 and A128551. %C A126334 The number of such p's <= 10^n: 2, 2, 2, 2, 11, 56, 320, 1772, ..., . - _Robert G. Wilson v_, Mar 11 2007 %H A126334 Amiram Eldar, <a href="/A126334/b126334.txt">Table of n, a(n) for n = 1..10000</a> %t A126334 fQ[n_] := Block[{p = Prime[n], q = Prime[n + 1]}, p + 2 == q && PrimeQ[p*q - p - q] && PrimeQ[p*q + p + q]]; lst = {}; Do[ If[ fQ@n == True, AppendTo[lst, Prime@n]; Print@ Prime@n], {n, 39055}] (* _Robert G. Wilson v_, Mar 11 2007 *) %Y A126334 Cf. A096342, A126148, A128547, A128548, A128550, A128551. %K A126334 nonn %O A126334 1,1 %A A126334 _Zak Seidov_, Mar 10 2007 %E A126334 More terms from _Robert G. Wilson v_, Mar 11 2007