|
%I #5 Apr 21 2014 16:55:34
%S 1,3,9,11,27,33,39,81,99,117,121,243,297,351,363,429,507,729,873,891,
%T 1053,1089,1287,1331,1521,1833,2187,2511,2673,3081,3159,3267,3861,
%U 3993,4491,4563,4719,4779,5577,6413,6561,6591,8019,9243,9477,9801
%N Numbers n such that n | 8^n + 7^n + 6^n + 5^n + 4^n + 3^n.
%t Select[ Range[ 10^4 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ], # ] == 0 & ]
%t Select[Range[10000],Divisible[Total[Range[3,8]^#],#]&] (* _Harvey P. Dale_, Apr 21 2014 *)
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000
|
