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 A088483 #35 Feb 22 2023 09:35:34
%S A088483 2,3,5,41,59,89,101,131,743,761,1193,2411,2663,2729,3011,3221,3251,
%T A088483 3449,4751,6173,6599,6833,7229,8669,9059,9323,9521,9719,9743,10151,
%U A088483 10781,11549,11933,12143,12251,12473,12641,13553,13613,14939,15569,16301
%N A088483 Primes p such that p^2+p-1 and p^2+p+1 are twin primes.
%C A088483 Also primes in A155173 = Short leg A of primitive Pythagorean triangles such that perimeters are Averages of twin prime pairs... - _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009
%C A088483 All terms >3 are congruent to 5 modulo 6. - _Zak Seidov_, Mar 21 2014
%C A088483 Intersection of A000040 and A088485. - _Danny Rorabaugh_, May 15 2017
%H A088483 Pierre CAMI, <a href="/A088483/b088483.txt">Table of n, a(n) for n = 1..10000</a>
%e A088483 a(7) = 101: 101*101 + 101 - 1 = 10301, 10301 and 10303 twin primes.
%t A088483 lst={};Do[p=Prime[n];If[PrimeQ[p1=p*p+p-1]&&PrimeQ[p1+2],AppendTo[lst,p]],{n,2*7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009 *)
%t A088483 Select[Prime[Range[2000]],AllTrue[#^2+#+{1,-1},PrimeQ]&] (* _Harvey P. Dale_, Feb 22 2023 *)
%o A088483 (PARI) forprime(p=2,1e5,if(isprime(p^2+p-1)&&isprime(p^2+p+1),print1(p", "))) \\ _Charles R Greathouse IV_, Dec 27 2011
%Y A088483 Cf. A001097, A088484, A088485.
%K A088483 nonn
%O A088483 1,1
%A A088483 _Pierre CAMI_, Nov 09 2003