A128449 Numbers k such that absolute value of 9^k - k^9 is prime.
2, 10, 50, 7900, 18494, 23840, 36838
Offset: 1
Links
- Henri Lifchitz and Renaud Lifchitz, PRP Records.
Crossrefs
Programs
-
Mathematica
lst={};k=9;Do[If[PrimeQ[Abs[k^n-n^k]], AppendTo[lst, n]], {n, 0, 10^4}];lst (* Vladimir Joseph Stephan Orlovsky, Sep 10 2008 *)
-
PARI
is(n)=isprime(abs(9^n-n^9)) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(4)-a(6) from Ryan Propper, Feb 22 2008
a(7) from Donovan Johnson, Feb 26 2008
Comments