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
Keywords
Crossrefs
Cf. A057490.
Programs
-
Mathematica
Select[Range[1000000],Divisible[Total[PowerMod[Range[5,12],#,#]],#]&] (* Harvey P. Dale, Mar 28 2012 *)
-
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
Extensions
a(32)-a(42) from Lucas A. Brown, Nov 30 2022