A141798 Numbers n such that 2*23^n + 1 is prime.
0, 1, 5, 21, 261, 47589, 93337
Offset: 1
Programs
-
Mathematica
Join[{0}, Select[Range[1, 261, 2], PrimeQ[2*23^# + 1] &]] (* Arkadiusz Wesolowski, Nov 06 2012 *)
-
PARI
is(n)=ispseudoprime(2*23^n+1) \\ Charles R Greathouse IV, Feb 20 2017
Extensions
a(6)-a(7) from Robert Price, Jan 06 2016
Comments