A113115 Primes p such that 17*p + 2 is also prime.

3, 13, 37, 43, 61, 103, 127, 157, 181, 223, 241, 283, 313, 373, 421, 463, 523, 541, 577, 607, 631, 661, 673, 787, 811, 853, 883, 1021, 1087, 1093, 1153, 1231, 1237, 1297, 1303, 1531, 1567, 1741, 1753, 1777, 1783, 1867, 2113, 2131, 2143, 2161

Offset

1,1

Comments

Intersection of A000040 and A113487. - Iain Fox, Feb 27 2018

Links

Iain Fox, Table of n, a(n) for n = 1..10000

Example

If p=223 then 17*p + 2 = 3793 (prime).

Mathematica

Select[Prime[Range[400]], PrimeQ[17#+2]&] (* Harvey P. Dale, Jul 17 2021 *)

Prog

(Magma) [p: p in PrimesUpTo(3000)|  IsPrime(17*p+2)] // Vincenzo Librandi, Jan 29 2011
(PARI) lista(nn) = forprime(p=3, nn, if(isprime(17*p + 2), print1(p, ", "))) \\ Iain Fox, Feb 27 2018

Crossrefs

Cf. A112391, A113487.

Sequence in context: A061483 A340410 A128288 * A107136 A153009 A147168

Adjacent sequences: A113112 A113113 A113114 * A113116 A113117 A113118

Keyword

nonn

Author

Parthasarathy Nambi, Jan 03 2006

Status

approved