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 A145473 #20 Jan 24 2017 17:29:28 %S A145473 3,11,23,47,71,83,107,131,167,191,251,263,347,383,443,467,491,503,683, %T A145473 827,887,911,947,971,1031,1103,1163,1187,1223,1283,1307,1427,1511, %U A145473 1583,1607,1667,1811,1847,1871,1931,2027,2087,2111,2207,2351,2423,2447,2543 %N A145473 Primes p such that (11 + p)/2 is prime. %C A145473 All these primes are congruent to 3 mod 4 and (with the exception of the first term) to 11 mod 12. %H A145473 Ivan Neretin, <a href="/A145473/b145473.txt">Table of n, a(n) for n = 1..10000</a> %t A145473 aa = {}; k = 11; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], {n, 1, 500}];aa %t A145473 Select[Prime[Range[400]],PrimeQ[(#+11)/2]&] (* _Harvey P. Dale_, Apr 15 2012 *) %o A145473 (PARI) first(n)=my(t=1, p, i=1); while(i<n, p=prime(i); i=i+1; if(p>2&&isprime((11+p)/2), print1(p,", "))) \\ _Anders Hellström_, Jan 22 2017 %Y A145473 Cf. A092109, A145471-A145480. %K A145473 nonn %O A145473 1,1 %A A145473 _Artur Jasinski_, Oct 11 2008