login
A057287
Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.
0
1, 2, 3, 4, 6, 9, 12, 21, 27, 63, 81, 147, 189, 243, 441, 567, 678, 729, 996, 1029, 1323, 1449, 1572, 1701, 2187, 2781, 3087, 3969, 5103, 6561, 7203, 8444, 8754, 9261, 11907, 13041, 13293, 15309, 19683, 21609, 23667, 23949, 25188, 26019, 27491
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^5 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
Select[Range[30000], Divisible[Total[Range[2, 10]^#], #]&] (* Harvey P. Dale, Aug 14 2013 *)
CROSSREFS
Sequence in context: A111791 A178479 A057285 * A056751 A189035 A137446
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 22 2000
STATUS
approved