login
Numbers n such that 210*n + 13 is prime.
2

%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