|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|