|
|
A057231
|
|
Numbers k such that k divides 9^k + 8^k + 7^k.
|
|
0
|
|
|
1, 2, 3, 9, 27, 33, 81, 194, 243, 729, 1647, 2187, 2673, 6561, 15957, 19683, 59049, 133407, 177147, 216513, 314523, 531441, 699597, 1306833, 1594323, 4782969, 5622777, 5640273, 6762933, 10805967, 11708163, 14348907, 17537553, 20069451, 32537457, 43046721, 66075831
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
select(t -> (9 &^ t + 8 &^ t + 7 &^ t) mod t = 0, [$1..10^7]); # Robert Israel, Jan 29 2020
|
|
MATHEMATICA
|
Select[ Range[ 10^6 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ], # ] == 0 & ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|