A117706 Numbers k such that 6^k - k^6 is prime.
1, 7, 13, 35, 53, 115, 145, 307, 10163
Offset: 1
Examples
a(2)=7 because 6^7 - 7^6 = 162287 is prime.
Links
- Henri Lifchitz and Renaud Lifchitz, PRP Records.
Crossrefs
Cf. A128448.
Programs
-
Mathematica
Do[If[PrimeQ[(6^n-n^6)],Print[n]],{n,1,3000}]
-
PARI
for(x=1,1e5,ispseudoprime(p=6^x-x^6)&&print1(x", ")) \\ M. F. Hasler, Aug 20 2014
Extensions
a(9) found by Donovan Johnson.
Comments