A140732 Primes congruent to 71 or 139 mod 210.
71, 139, 281, 349, 491, 701, 769, 911, 1399, 1609, 2029, 2239, 2381, 2591, 2659, 2801, 3011, 3079, 3221, 3499, 3709, 3851, 3919, 4129, 4271, 4339, 4481, 4549, 4691, 4759, 4969, 5179, 5531, 5741, 6229, 6581, 6791, 7001, 7069, 7211, 7489, 7699, 7841, 8329
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(9000)|p mod 210 in {71,139}] // Vincenzo Librandi, Dec 18 2010
-
Mathematica
Select[Prime[Range[1100]], MemberQ[{71, 139}, Mod[#, 210]] &] (* Vincenzo Librandi, Aug 15 2012 *) Select[Riffle[Range[71,9000,210],Range[139,9000,210]],PrimeQ] (* Harvey P. Dale, Jun 01 2017 *)
Extensions
4691 added by D. S. McNeil, Dec 10 2009