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