A216618 Numbers k such that 10^k + k^10 + 1 is prime.

0, 726, 1974, 3336

Offset

1,2

Comments

a(5) > 10^5. - Robert Price, Oct 06 2015

Links

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

Mathematica

Select[Range[0, 5000], PrimeQ[10^# + #^10 + 1] &]

Prog

(PARI) is(n)=ispseudoprime(10^n+n^10+1) \\ Charles R Greathouse IV, Jun 13 2017

Crossrefs

Cf. A100357, A215434-A215446, A216375.

Sequence in context: A023680 A002769 A252617 * A185527 A306450 A259237

Adjacent sequences: A216615 A216616 A216617 * A216619 A216620 A216621

Keyword

nonn,hard,more

Author

Vincenzo Librandi, Sep 11 2012

Status

approved