|
|
A057261
|
|
Numbers n such that n | 8^n + 7^n + 6^n + 5^n + 4^n + 3^n.
|
|
0
|
|
|
1, 3, 9, 11, 27, 33, 39, 81, 99, 117, 121, 243, 297, 351, 363, 429, 507, 729, 873, 891, 1053, 1089, 1287, 1331, 1521, 1833, 2187, 2511, 2673, 3081, 3159, 3267, 3861, 3993, 4491, 4563, 4719, 4779, 5577, 6413, 6561, 6591, 8019, 9243, 9477, 9801
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 10^4 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
Select[Range[10000], Divisible[Total[Range[3, 8]^#], #]&] (* Harvey P. Dale, Apr 21 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|