|
|
A057233
|
|
Numbers n such that n | 8^n + 7^n + 6^n.
|
|
2
|
|
|
1, 3, 7, 9, 21, 27, 49, 51, 63, 81, 147, 189, 243, 343, 441, 567, 729, 931, 1029, 1323, 1593, 1701, 2187, 2349, 2401, 2493, 2499, 3087, 3969, 4077, 4131, 5103, 6561, 7203, 9261, 11907, 15309, 16807, 19683, 21609, 27783, 31743, 35721, 45927, 50421
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
select(n -> 6 &^ n + 7 &^ n + 8 &^ n) mod n = 0, [$1..10^5]); # Robert Israel, Jan 30 2020
|
|
MATHEMATICA
|
Select[ Range[ 10^6 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ], # ] == 0 & ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|