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 A145482 #13 Jun 09 2025 04:40:43
%S A145482 11,13,19,31,43,61,73,79,109,151,163,193,199,229,241,271,283,313,331,
%T A145482 373,379,421,439,463,541,571,661,673,709,733,739,751,823,859,883,1009,
%U A145482 1051,1129,1153,1201,1279,1453,1543,1549,1663,1669,1741,1759,1783,1789
%N A145482 Primes p such that 2*p - 19 is prime.
%H A145482 Ivan Neretin, <a href="/A145482/b145482.txt">Table of n, a(n) for n = 1..10000</a>
%F A145482 a(n) = 2*A145476(n) - 19.
%t A145482 aa = {}; k = 19; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, (k + Prime[n])/2]], {n, 1, 500}];aa
%t A145482 (* Second program: *)
%t A145482 Select[Prime@ Range@ 300, And[PrimeQ@ #, # > 0] &[2 # - 19] &] (* _Michael De Vlieger_, Jan 23 2017 *)
%Y A145482 Cf. A063908-A063913, A092109, A145471-A145480.
%K A145482 nonn
%O A145482 1,1
%A A145482 _Artur Jasinski_, Oct 11 2008