|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|