%I #9 Jan 24 2022 13:09:02
%S 1,2,3,9,27,81,86,243,729,2187,4401,6561,8189,10282,13203,19683,39609,
%T 40713,59049,118827,171009,177147,335073,356481,531441,717363,894958,
%U 947141
%N Numbers n such that n | 6^n + 5^n + 4^n + 3^n.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
%t Select[Range[10^6],Mod[Total[PowerMod[Range[3,6],#,#]],#]==0&] (* _Harvey P. Dale_, Jan 24 2022 *)
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000
|