%I #6 Nov 21 2013 12:47:25
%S 1,2,5,6,10,22,25,30,50,66,102,125,150,242,250,374,589,625,726,750,
%T 925,1250,2094,2222,2550,2662,2705,3125,3450,3625,3737,3750,5246,6250,
%U 7458,7986,11875,12342,15594,15625,18750,19865,28250,28750,29282,29550
%N Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n.
%t Select[ Range[ 10^5 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ], # ] == 0 & ]
%t Select[Range[30000],Divisible[Total[Range[6,10]^#],#]&] (* _Harvey P. Dale_, Aug 31 2011 *)
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000
|