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,1

Links

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

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 *)

Prog

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

Crossrefs

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

Cf. A000040.

Sequence in context: A027773 A099271 A081796 * A289734 A130549 A361171

Adjacent sequences: A140533 A140534 A140535 * A140537 A140538 A140539

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Jul 28 2008

Status

approved