A062666 Numbers k such that 100^k - 99^k is prime.
2, 5, 19, 59, 1013, 2371, 13967, 44683
Offset: 1
Programs
-
Mathematica
lst={}; k=100; Do[If[PrimeQ[k^n-(k-1)^n], Print[n]; AppendTo[lst, n]], {n, 10^5}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 26 2008 *)
-
PARI
forprime(p=2,1e5,if(ispseudoprime(100^p-99^p),print1(p", "))) \\ Charles R Greathouse IV, Jun 10 2011
Extensions
Edited by T. D. Noe, Oct 30 2008
a(7)-a(8) from Robert Price, Jul 10 2013
Comments