login
A057248
Numbers n such that n | 6^n + 5^n + 4^n + 3^n.
0
1, 2, 3, 9, 27, 81, 86, 243, 729, 2187, 4401, 6561, 8189, 10282, 13203, 19683, 39609, 40713, 59049, 118827, 171009, 177147, 335073, 356481, 531441, 717363, 894958, 947141
OFFSET
1,2
MATHEMATICA
Select[ Range[ 10^6 ], Mod[ PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
Select[Range[10^6], Mod[Total[PowerMod[Range[3, 6], #, #]], #]==0&] (* Harvey P. Dale, Jan 24 2022 *)
CROSSREFS
Sequence in context: A045596 A057299 A057296 * A015960 A376478 A099079
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 21 2000
STATUS
approved