|
|
A057259
|
|
Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n + 5^n.
|
|
1
|
|
|
1, 3, 5, 9, 15, 25, 27, 39, 45, 75, 81, 117, 125, 135, 195, 225, 243, 297, 351, 375, 405, 507, 585, 625, 645, 675, 729, 975, 1053, 1125, 1215, 1287, 1521, 1755, 1875, 2025, 2187, 2277, 2535, 2925, 3125, 3159, 3375, 3645, 4257, 4563, 4875, 5085, 5265, 5577
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 10^4 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ], # ] == 0 & ]
Select[Range[6000], Divisible[Total[Range[5, 10]^#], #]&] (* Harvey P. Dale, Nov 16 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|