A113481 - OEIS

%I #17 Sep 08 2022 08:45:23

%S 0,1,27,45,75

%N Numbers n such that 59^n + 2 is prime.

%C a(6) > 2*10^5. - _Robert Price_, Mar 21 2015

%t For[n=0, n<50, n++, If[PrimeQ[59^n+2], Print[n]]] (* _Stefan Steinerberger_, Feb 10 2006 *)

%t Select[Range[0, 1000], PrimeQ[59^# + 2] &] (* _Vincenzo Librandi_, Mar 22 2015 *)

%o (PARI) forstep(n=1,1000,2,y=59^n+2;if(ispseudoprime(y),print1(n",")))

%o (Magma) [n: n in [0..100] | IsPrime( 59^n + 2)]; // _Vincenzo Librandi_, Mar 22 2015

%K nonn

%O 1,3

%A _Cino Hilliard_, Jan 09 2006