A128454 Numbers k such that the absolute value of 14^k - k^14 is prime.

1, 5, 11, 89, 101, 579, 655, 8115

Offset: 1

Author

Alexander Adamchuk, Mar 03 2007

Keywords

• hard
• nonn
• more

Comments

a(9) > 50000. - Robert Price, Jun 17 2019

Crossrefs

Cf. A072180, A109387, A117705, A117706, A128447, A128448, A128449, A128450, A128451, A122003, A128453.

Programs

Mathematica

Do[If[PrimeQ[Abs[14^n - n^14]], Print[n]], {n, 10^4}] (* Ryan Propper, Mar 27 2007 *)

PARI

is(n)=ispseudoprime(abs(14^n-n^14)) \\ Charles R Greathouse IV, Feb 17 2017

Extensions

One more term from Ryan Propper, Mar 27 2007