A057253 - OEIS

%I #3 Mar 30 2012 17:30:27

%S 1,5,7,25,35,49,125,175,245,343,625,875,1225,1715,2401,3125,3415,3773,

%T 4375,6125,8575,11725,12005,15625,16807,17003,21875,30625,36875,42875,

%U 46067,60025,78125,84035,91475,109375,112945,117649,153125,193109

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

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 21 2000