login
A057285
Numbers n such that n | 12^n + 11^n + 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n.
0
1, 2, 3, 4, 6, 9, 12, 21, 27, 63, 81, 106, 147, 189, 243, 372, 441, 567, 729, 861, 1029, 1323, 1701, 2187, 2241, 3087, 3594, 3969, 4347, 4473, 5103, 5622, 5966, 6561, 7203, 9261, 11907, 12231, 12663, 15309, 19683, 20204, 21609, 27783, 32628, 32907
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^5 ], Mod[ PowerMod[ 12, #, # ] + PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ], # ] == 0 & ]
Select[Range[33000], Divisible[Total[Range[4, 12]^#], #]&] (* Harvey P. Dale, Jul 15 2014 *)
CROSSREFS
Sequence in context: A018256 A111791 A178479 * A057287 A056751 A189035
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
STATUS
approved