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 A128547 #10 Feb 28 2015 09:04:27
%S A128547 3,5,7,13,29,37,43,71,89,107,151,163,191,199,211,239,241,277,331,401,
%T A128547 479,569,607,643,683,719,751,773,811,823,881,907,911,937,953,1087,
%U A128547 1091,1109,1117,1201,1249,1289,1321,1399,1439,1459,1471,1597,1619,1621,1657
%N A128547 Primes p such that p*q-p-q is prime where q=nextprime(p).
%H A128547 Vincenzo Librandi, <a href="/A128547/b128547.txt">Table of n, a(n) for n = 1..1000</a>
%e A128547 3*5-3-5=7 prime, 5*7-5-7=23 prime etc.
%t A128547 Select[Table[Prime[n], {n, 400}], PrimeQ[#*NextPrime[#] - # - NextPrime[#]] &] (* _Vladimir Joseph Stephan Orlovsky_, Feb 18 2012 *)
%t A128547 qnpQ[n_]:=Module[{q=NextPrime[n]},PrimeQ[n*q-n-q]]; Select[Prime[Range[ 500]],qnpQ] (* _Harvey P. Dale_, Feb 28 2015 *)
%Y A128547 Cf. A096342, A126148, A128547.
%K A128547 nonn
%O A128547 1,1
%A A128547 _Zak Seidov_, Mar 10 2007