%I #14 Jun 17 2019 14:08:03
%S 1,5,11,89,101,579,655,8115
%N Numbers k such that the absolute value of 14^k - k^14 is prime.
%C a(9) > 50000. - _Robert Price_, Jun 17 2019
%t Do[If[PrimeQ[Abs[14^n - n^14]], Print[n]], {n, 10^4}] (* _Ryan Propper_, Mar 27 2007 *)
%o (PARI) is(n)=ispseudoprime(abs(14^n-n^14)) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A072180, A109387, A117705, A117706, A128447, A128448, A128449, A128450, A128451, A122003, A128453.
%K hard,nonn,more
%O 1,2
%A _Alexander Adamchuk_, Mar 03 2007
%E One more term from _Ryan Propper_, Mar 27 2007
|