A103110 Numbers n such that (58*100^n - 157)/99 is prime.
2, 3, 5, 63, 237, 407, 687, 4413, 5606
Offset: 1
Programs
-
Mathematica
Do[If[PrimeQ[(58*10^n - 157)/99], Print[n]], {n, 6400}]
-
PARI
is(n)=ispseudoprime((58*100^n-157)/99) \\ Charles R Greathouse IV, Jun 13 2017
Comments