A128453 Numbers k such that absolute value of 13^k - k^13 is prime.

6, 12, 38, 2540

Offset

1,1

Comments

a(5) > 10^5. - Robert Price, Apr 17 2019

Links

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

Mathematica

Do[If[PrimeQ[13^n - n^13], Print[n]], {n, 10^4}] (* Ryan Propper, Jul 01 2007 *)

Prog

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

Crossrefs

Sequence in context: A096377 A026083 A215179 * A185616 A307181 A052747

Adjacent sequences: A128450 A128451 A128452 * A128454 A128455 A128456

Keyword

hard,more,nonn,less

Author

Alexander Adamchuk, Mar 03 2007

Extensions

a(4) from Ryan Propper, Jul 01 2007

Status

approved