A140841 Primes of the form 210n + 13.

13, 223, 433, 643, 853, 1063, 1483, 1693, 2113, 2953, 3163, 3373, 3583, 3793, 4003, 4423, 5683, 6733, 7573, 7993, 8623, 9043, 9463, 9883, 10093, 10303, 10513, 10723, 11353, 12613, 12823, 13033, 13873, 14083, 14293, 14503, 14713, 14923, 15973

Offset

1,1

Links

Table of n, a(n) for n=1..39.

Maple

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

Mathematica

Select[13+210Range[0, 150], PrimeQ] (* Ray Chandler, Apr 29 2010 *)

Prog

(PARI) forprime(p=1, 1e4, if(p%210==13, print1(p", "))) \\ Charles R Greathouse IV, Dec 21 2011

Crossrefs

Cf. A073102, A075745.

Sequence in context: A173427 A051180 A143832 * A062127 A178559 A068120

Adjacent sequences: A140838 A140839 A140840 * A140842 A140843 A140844

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 04 2008

Extensions

More terms from R. J. Mathar, Oct 22 2009

Status

approved