A172981 Primes p such that 210*p+41 is also prime.
2, 5, 7, 11, 23, 29, 31, 53, 71, 79, 83, 89, 97, 107, 127, 131, 139, 151, 167, 191, 197, 211, 227, 229, 239, 241, 257, 269, 271, 277, 281, 283, 347, 349, 359, 379, 383, 409, 433, 449, 461, 499, 521, 587, 647, 673, 677, 709, 739, 743, 769, 787, 811, 823
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A140848.
Programs
-
Magma
[p: p in PrimesUpTo(1000) | IsPrime(210*p+41)]; // Vincenzo Librandi, Dec 31 2013
-
Mathematica
Select[Prime[Range[1000]], PrimeQ[210 # + 41]&] (* Vincenzo Librandi, Dec 31 2013 *)
Extensions
Definition modified by Harvey P. Dale, Aug 21 2016