login
A057292
Numbers n such that n | 11^n + 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n + 1^n.
0
1, 2, 3, 9, 11, 22, 27, 33, 46, 81, 99, 121, 209, 242, 243, 297, 363, 729, 891, 1058, 1089, 1179, 1331, 1702, 2187, 2662, 2673, 3082, 3267, 3993, 6561, 8019, 9801, 11979, 14641, 19683, 20673, 24057, 24334, 25029, 29282, 29403, 30591, 30734
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^5 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ] + 1, # ] == 0 & ]
Select[Range[31000], Mod[Total[PowerMod[Range[0, 11], #, #]], #]==0&] (* Harvey P. Dale, Nov 22 2021 *)
CROSSREFS
Sequence in context: A057569 A177950 A049618 * A098016 A372073 A089645
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
STATUS
approved