A058046 Numbers k such that 5^k - k is prime.
2, 6, 12, 362, 884, 9722
Offset: 1
Crossrefs
Cf. A382786.
Programs
-
Mathematica
Do[ If[ PrimeQ[ 5^n - n ], Print[ n ] ], {n, 1, 13400} ]
-
PARI
is(n)=ispseudoprime(5^n-n) \\ Charles R Greathouse IV, Feb 20 2017
Extensions
The sixth term was found by Farideh Firoozbakht, who reports that there are no others up to 13400, Oct 11 2003
Comments