%I
%S 13,223,433,643,853,1063,1483,1693,2113,2953,3163,3373,3583,3793,4003,
%T 4423,5683,6733,7573,7993,8623,9043,9463,9883,10093,10303,10513,10723,
%U 11353,12613,12823,13033,13873,14083,14293,14503,14713,14923,15973
%N Primes of the form 210n + 13.
%p A140841 := proc(n) local a; if n = 1 then 13; else a := nextprime(procname(n1)) ; 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
%t Select[13+210Range[0,150],PrimeQ] (* _Ray Chandler_, Apr 29 2010 *)
%o (PARI) forprime(p=1,1e4,if(p%210==13,print1(p", "))) \\ _Charles R Greathouse IV_, Dec 21 2011
%Y Cf. A073102, A075745.
%K nonn
%O 1,1
%A _JuriStepan Gerasimov_, Jul 04 2008
%E More terms from _R. J. Mathar_, Oct 22 2009
