A057233 Numbers n such that n | 8^n + 7^n + 6^n.

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

Offset: 1

Author

Robert G. Wilson v, Sep 20 2000

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..238

Crossrefs

Contains A003594.

Programs

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 & ]