A145486 Primes p such that 2p - 37 is prime.

37, 67, 73, 97, 109, 139, 157, 193, 223, 229, 307, 349, 373, 397, 433, 457, 487, 523, 577, 619, 643, 709, 733, 823, 829, 853, 907, 919, 1033, 1063, 1087, 1129, 1153, 1213, 1237, 1279, 1297, 1327, 1447, 1543, 1549, 1579, 1609, 1627, 1669, 1699, 1747, 1753

Offset

1,1

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Formula

a(n)=2*A145480(n)-37

Mathematica

aa = {}; k = 37; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa

Prog

(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

Crossrefs

Cf. A063908-A063913, A092109, A145471-A145490.

Sequence in context: A158018 A226697 A117475 * A319673 A121764 A131499

Adjacent sequences: A145483 A145484 A145485 * A145487 A145488 A145489

Keyword

easy,nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved