A140537 Primes congruent to 17 or 193 mod 210.

17, 193, 227, 613, 647, 823, 857, 1033, 1277, 1453, 1487, 1663, 1697, 1873, 1907, 2083, 2293, 2503, 2713, 2957, 3167, 3343, 3797, 4007, 4217, 4603, 4637, 4813, 5023, 5233, 5443, 5477, 5653, 5897, 6073, 6317, 6703, 6737, 6947, 7333, 7577, 7753, 7963

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

mf[n_]:=Module[{x=Mod[n, 210]}, x==17||x==193]; Select[Prime[Range[1100]], mf]  (* Harvey P. Dale, Feb 07 2011 *)
Select[Prime[Range[1100]], MemberQ[{17, 193}, Mod[#, 210]] &] (* Vincenzo Librandi, Aug 15 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {17, 193}]; // Vincenzo Librandi, Dec 18 2010

Crossrefs

Cf. A000040.

Sequence in context: A021494 A300172 A160658 * A359698 A021434 A019316

Adjacent sequences: A140534 A140535 A140536 * A140538 A140539 A140540

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Jul 28 2008

Extensions

Entries checked by R. J. Mathar, Apr 25 2010

Status

approved