%I #7 Nov 21 2013 12:47:25
%S 1,3,7,9,21,27,49,63,81,93,99,147,189,243,343,387,441,539,567,729,777,
%T 1029,1323,1701,1953,1971,2079,2183,2187,2401,3087,3969,5103,6561,
%U 7077,7203,7533,8019,9261,9423,11277,11319,11907,15309,16807,17739,19683
%N Numbers n such that n | 12^n + 11^n + 10^n + 9^n + 8^n + 7^n + 6^n.
%t Select[ Range[ 10^5 ], Mod[ PowerMod[ 12, #, # ] + PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ], # ] == 0 & ]
%t With[{c=Range[6,12]},Select[Range[20000],Divisible[Total[c^#],#]&]] (* _Harvey P. Dale_, Feb 29 2012 *)
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 22 2000