login
A057491
Numbers k such that k | 12^k + 11^k + 10^k + 9^k + 8^k + 7^k + 6^k + 5^k.
0
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
EXTENSIONS
a(32)-a(42) from Lucas A. Brown, Nov 30 2022
STATUS
approved