login
A113115
Primes p such that 17*p + 2 is also prime.
3
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
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
Sequence in context: A061483 A340410 A128288 * A107136 A153009 A147168
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Jan 03 2006
STATUS
approved