|
%I #5 Nov 16 2014 13:06:18
%S 1,3,5,9,15,25,27,39,45,75,81,117,125,135,195,225,243,297,351,375,405,
%T 507,585,625,645,675,729,975,1053,1125,1215,1287,1521,1755,1875,2025,
%U 2187,2277,2535,2925,3125,3159,3375,3645,4257,4563,4875,5085,5265,5577
%N Numbers n such that n | 10^n + 9^n + 8^n + 7^n + 6^n + 5^n.
%H Harvey P. Dale, <a href="/A057259/b057259.txt">Table of n, a(n) for n = 1..125</a>
%t Select[ Range[ 10^4 ], Mod[ PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ], # ] == 0 & ]
%t Select[Range[6000],Divisible[Total[Range[5,10]^#],#]&] (* _Harvey P. Dale_, Nov 16 2014 *)
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 21 2000
|
