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
Keywords
Programs
-
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 *)
-
PARI
forprime(p=1,1e4,if(p%210==13,print1(p", "))) \\ Charles R Greathouse IV, Dec 21 2011
Extensions
More terms from R. J. Mathar, Oct 22 2009