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 A145486 #9 Jun 09 2025 22:41:17
%S A145486 37,67,73,97,109,139,157,193,223,229,307,349,373,397,433,457,487,523,
%T A145486 577,619,643,709,733,823,829,853,907,919,1033,1063,1087,1129,1153,
%U A145486 1213,1237,1279,1297,1327,1447,1543,1549,1579,1609,1627,1669,1699,1747,1753
%N A145486 Primes p such that 2*p - 37 is prime.
%H A145486 Ivan Neretin, <a href="/A145486/b145486.txt">Table of n, a(n) for n = 1..10000</a>
%F A145486 a(n)=2*A145480(n)-37
%t A145486 aa = {}; k = 37; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, (k + Prime[n])/2]], {n, 1, 500}];aa
%o A145486 (PARI) list(lim)=my(v=List()); forprime(p=2,lim, if(isprime(2*p-37), listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Jan 23 2017
%Y A145486 Cf. A063908-A063913, A092109, A145471-A145490.
%K A145486 easy,nonn
%O A145486 1,1
%A A145486 _Artur Jasinski_, Oct 11 2008