%I #3 Mar 30 2012 17:30:27
%S 1,3,9,13,27,39,51,81,117,169,243,351,507,729,1053,1521,2187,2197,
%T 3159,4131,4563,4941,6561,6591,7047,9477,12207,13203,13689,16281,
%U 19683,19773,28431,28561,33969,36621,39609,41067,45981,59049,59319,77571
%N Numbers n such that n | 9^n + 8^n + 7^n + 6^n + 5^n + 4^n.
%t Select[ Range[ 10^4 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000
|