A073085 - OEIS

%I #15 Sep 08 2022 08:45:06

%S 1,2,3,5,7,11,12,13,16,17,20,22,23,28,29,30,35,36,39,42,44,46,47,50,

%T 51,53,55,57,59,60,64,67,68,72,73,74,78,81,83,85,86,88,89,93,96,100,

%U 101,104,105,111,115,117,118,121,122,124,125,128,129,135,137,139,140,141

%N Numbers n such that 210*n+1 is prime.

%H Vincenzo Librandi, <a href="/A073085/b073085.txt">Table of n, a(n) for n = 1..1000</a>

%e 1 is a member because 210*1+1=211 is prime; 100 is a member because 210*100+1=21001 is prime.

%t Flatten[Position[PrimeQ[210Range[100]+1], True]]

%t Select[Range[150], PrimeQ[(210*# + 1)] &] (* _Vincenzo Librandi_, Sep 30 2012 *)

%o (Magma) [n: n in [1..200] | IsPrime(210*n + 1)]; _Vincenzo Librandi_, Sep 30 2012

%o (PARI) is(n)=isprime(210*n+1) \\ _Charles R Greathouse IV_, May 22 2017

%Y Cf. A073102.

%K easy,nonn

%O 1,2

%A _Zak Seidov_, Oct 08 2002