%I #19 Sep 08 2022 08:45:07
%S 0,1,2,3,4,5,7,8,10,14,15,16,17,18,19,21,27,32,36,38,41,43,45,47,48,
%T 49,50,51,54,60,61,62,66,67,68,69,70,71,76,77,79,83,85,88,90,92,93,94,
%U 95,96,98,100,102,105,106,107,113,116,118,121,122,124,125,127,128,129,132
%N Numbers n such that 210*n + 13 is prime.
%H Vincenzo Librandi, <a href="/A075745/b075745.txt">Table of n, a(n) for n = 1..1000</a>
%e n=2: 210*2 + 13 = 433 is prime.
%t Select[Range[0, 500], PrimeQ[210*# + 13] &] (* _Vincenzo Librandi_, Oct 04 2012 *)
%o (Magma) [n: n in [0..150]| IsPrime(210*n + 13)]; // _Vincenzo Librandi_, Oct 04 2012
%o (PARI) is(n)=isprime(210*n+13) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A140841.
%K easy,nonn
%O 1,3
%A _Zak Seidov_, Oct 08 2002
%E 0 inserted by _Ray Chandler_, Apr 30 2010