%I #8 May 13 2013 01:47:58

%S 1,2,4,11,121,142,1331,5269,14641,15332,49444,158447,161051,1005037,

%T 1119337,1246421,1771561,3380954,19487171,64581451,127984967,

%U 144492029,214358881,259650149,295850687,394178917,2357947691

%N Numbers n such that n | 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.

%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]

%t Select[Range[2000000],Divisible[Total[PowerMod[Range[2,9],#,#]],#]&] (* _Harvey P. Dale_, Feb 05 2013 *)

%o (PARI) is(n)=my(n2=Mod(2,n)^n,n3=Mod(3,n)^n);n2+n3+n2^2+Mod(5,n)^n+n2*n3+ Mod(7,n)^n+n2^3+n3^2==0 \\ _Charles R Greathouse IV_, Feb 28 2012

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 22 2000

%E a(14)-a(27) from _Charles R Greathouse IV_, Feb 28 2012