A140536 Primes congruent to 13 or 197 mod 210.

13, 197, 223, 433, 617, 643, 827, 853, 1063, 1483, 1667, 1693, 1877, 2087, 2113, 2297, 2927, 2953, 3137, 3163, 3347, 3373, 3557, 3583, 3767, 3793, 4003, 4397, 4423, 4817, 5237, 5657, 5683, 5867, 6287, 6733, 6917, 7127, 7547, 7573, 7757, 7993, 8387, 8597

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 28 2008

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A140841. - R. J. Mathar, Oct 22 2009

Cf. A000040.

Programs

Magma

[p: p in PrimesUpTo(9000)|p mod 210 in {13,197}] // Vincenzo Librandi, Dec 18 2010

Maple

A140536 := proc(n) local a; if n = 1 then 13; else a := nextprime(procname(n-1)) ; while not a mod 210 in {13,197} do a := nextprime(a) ; end do: return a; end if; end: seq(A140536(n),n=1..80) ; # R. J. Mathar, Oct 22 2009

Mathematica

Select[Prime[Range[1100]],MemberQ[{13,197},Mod[#,210]]&] (* Harvey P. Dale, May 03 2011 *)