%I #3 Mar 30 2012 17:30:27
%S 1,3,9,27,81,87,243,729,1027,1467,2187,2781,6561,19683,35901,59049,
%T 62613,63423,63909,136503,137133,177147,531441,925101,1594323,2785509,
%U 3680883,4782969,5080077,6409507
%N Numbers n such that n | 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.
%t Select[ Range[ 10^7 ], Mod[ PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000