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 A128926 #11 Sep 08 2022 08:45:30
%S A128926 3,5,7,11,17,19,23,31,37,41,43,47,53,59,61,73,79,83,89,101,103,107,
%T A128926 109,113,127,131,139,149,151,163,167,173,179,181,191,193,199,211,223,
%U A128926 227,229,233,241,251,257,263,281,307,311,313,331,337,353,359,367,373,379
%N A128926 Smaller member p of a pair of consecutive primes (p,q) such that either q^2-p^2+1 or q^2-p^2-1 is also prime.
%e A128926 3 and 5 are consecutive primes, 5^2-3^2 = 25-9 = 16. 17 is prime, hence 3 is in the sequence.
%e A128926 79 and 83 are consecutive primes, 83^2-79^2 = 6889-6241 = 648. 647 is prime, hence 79 is in the sequence.
%e A128926 89 and 97 are consecutive primes, 97^2-89^2 = 9409-7921 = 1488. 1487 (as well as 1489) is prime, hence 89 is in the sequence.
%p A128926 isA128926 := proc(n) local p,q ; p := ithprime(n) ; q := ithprime(n+1) ; isprime((p+q)*(q-p)+1) or isprime((p+q)*(q-p)-1) ; end:
%p A128926 for n from 1 to 100 do if isA128926(n) then printf("%d,",ithprime(n)) ; fi ; od ; # _R. J. Mathar_, Apr 26 2007
%t A128926 Prime@ Select[ Range@ 75, PrimeQ[ Prime[ # + 1]^2 - Prime@#^2 - 1] || PrimeQ[ Prime[ # + 1]^2 - Prime@#^2 + 1] &] (* _Robert G. Wilson v_ *)
%o A128926 (Magma) [ p: p in PrimesUpTo(380) | IsPrime(q^2-p^2-1) or IsPrime(q^2-p^2+1) where q is NextPrime(p) ]; /* _Klaus Brockhaus_, May 05 2007 */
%Y A128926 Cf. A069482.
%K A128926 nonn
%O A128926 1,1
%A A128926 _J. M. Bergot_, Apr 25 2007
%E A128926 Corrected and extended by _Robert G. Wilson v_, _R. J. Mathar_ and _Klaus Brockhaus_, Apr 26 2007