A145480 Primes p such that (p+37)/2 is prime.

37, 97, 109, 157, 181, 241, 277, 349, 409, 421, 577, 661, 709, 757, 829, 877, 937, 1009, 1117, 1201, 1249, 1381, 1429, 1609, 1621, 1669, 1777, 1801, 2029, 2089, 2137, 2221, 2269, 2389, 2437, 2521, 2557, 2617, 2857, 3049, 3061, 3121, 3181, 3217, 3301, 3361

Offset

1,1

Comments

All these primes are congruent to 1 mod 12

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) >> n log^2 n. - Charles R Greathouse IV, Jan 23 2017

Mathematica

aa = {}; k = 37; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], {n, 1, 500}]; aa
Select[Prime[Range[500]], PrimeQ[(37+#)/2]&] (* Harvey P. Dale, Jun 23 2016 *)

Prog

(PARI) list(n)=my(t=1, p, i=1); while(i<n, p=prime(i); i=i+1; if(p>2&&isprime((37+p)/2), print(p, ", "))) \\Anders Hellström, Jan 23 2017
(PARI) list(lim)=my(v=List()); forprime(p=3, lim, if(isprime((p+37)/2), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Jan 23 2017

Crossrefs

A092109, A145471-A145480.

Sequence in context: A368850 A132360 A117854 * A033222 A098025 A256602

Adjacent sequences: A145477 A145478 A145479 * A145481 A145482 A145483

Keyword

nonn,easy

Author

Artur Jasinski, Oct 11 2008

Status

approved