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
Keywords
Examples
If p=223 then 17*p + 2 = 3793 (prime).
Links
- Iain Fox, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[p: p in PrimesUpTo(3000)| IsPrime(17*p+2)] // Vincenzo Librandi, Jan 29 2011
-
Mathematica
Select[Prime[Range[400]],PrimeQ[17#+2]&] (* Harvey P. Dale, Jul 17 2021 *)
-
PARI
lista(nn) = forprime(p=3, nn, if(isprime(17*p + 2), print1(p, ", "))) \\ Iain Fox, Feb 27 2018
Comments