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,2

Comments

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

Links

Table of n, a(n) for n=1..8.

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A057726 A057727 A228503 * A368013 A188514 A301923

Adjacent sequences: A128451 A128452 A128453 * A128455 A128456 A128457

Keyword

hard,nonn,more

Author

Alexander Adamchuk, Mar 03 2007

Extensions

One more term from Ryan Propper, Mar 27 2007

Status

approved