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 A128548 #9 Aug 30 2025 16:13:36
%S A128548 3,5,13,43,89,163,479,643,683,773,811,953,1109,1399,1471,2213,2741,
%T A128548 3253,4583,5153,5923,6427,7649,9059,10151,10531,12301,12373,13553,
%U A128548 13903,13921,14723,14869,14929,16183,17123,17681,21149,21377,21569,21587
%N A128548 Primes p such that p*q-p-q and p*q+p+q are prime where q=nextprime(p).
%C A128548 Intersection of A126148 and A128546.
%H A128548 Charles R Greathouse IV, <a href="/A128548/b128548.txt">Table of n, a(n) for n = 1..10000</a>
%e A128548 3*5-3-5=7 and 3*5+3+5=23 are prime, 5*7-5-23=7 and 5*7+5+7=47 are primes.
%t A128548 Select[Partition[Prime[Range[2500]],2,1],AllTrue[Times@@#+{Total[#],-Total[#]},PrimeQ]&][[;;,1]] (* _Harvey P. Dale_, Aug 30 2025 *)
%o A128548 (PARI) isok(p) = isprime(p) && (q = nextprime(p+1)) && isprime(p*q-p-q) && isprime(p*q+p+q); \\ _Michel Marcus_, Oct 11 2013
%Y A128548 Cf. A096342, A126148, A128547.
%K A128548 nonn,changed
%O A128548 1,1
%A A128548 _Zak Seidov_, Mar 10 2007