A057491 Numbers k such that k | 12^k + 11^k + 10^k + 9^k + 8^k + 7^k + 6^k + 5^k.

1, 2, 4, 10, 17, 50, 62, 221, 250, 253, 289, 290, 316, 697, 764, 1250, 1819, 3590, 4913, 6250, 31250, 54043, 55913, 63869, 83521, 98923, 156250, 231250, 530893, 781250, 987110, 1419857, 2383750, 3906250, 4531250, 6891250, 8789357, 9593750, 12479450, 18458141, 19531250

Offset

1,2

Links

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

Mathematica

Select[Range[1000000], Divisible[Total[PowerMod[Range[5, 12], #, #]], #]&] (* Harvey P. Dale, Mar 28 2012 *)

Prog

(Python)
[n for n in range(1, 20000000) if sum(pow(k, n, n) for k in range(5, 13)) % n == 0] # Lucas A. Brown, Nov 30 2022

Crossrefs

Cf. A057490.

Sequence in context: A152231 A285939 A034455 * A005541 A375625 A045955

Adjacent sequences: A057488 A057489 A057490 * A057492 A057493 A057494

Keyword

nonn

Author

Robert G. Wilson v, Sep 22 2000

Extensions

a(32)-a(42) from Lucas A. Brown, Nov 30 2022

Status

approved