A145485 Primes p such that 2p - 31 is prime.

17, 19, 31, 37, 67, 79, 97, 127, 151, 157, 181, 199, 277, 331, 337, 379, 409, 421, 457, 499, 541, 547, 577, 601, 631, 661, 727, 739, 751, 757, 787, 829, 877, 907, 991, 1009, 1021, 1087, 1117, 1171, 1201, 1249, 1291, 1381, 1399, 1459, 1549, 1597, 1609, 1669

Offset

1,1

Links

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

Formula

a(n) = 2*A145479(n) - 31.

Mathematica

aa = {}; k = 31; 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-31), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Jan 23 2017

Crossrefs

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

Sequence in context: A050266 A045803 A098933 * A290634 A182570 A292237

Adjacent sequences: A145482 A145483 A145484 * A145486 A145487 A145488

Keyword

easy,nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved