|
%I #3 Mar 30 2012 17:30:27
%S 1,2,3,4,5,6,9,12,15,25,27,42,45,75,81,82,84,99,125,135,225,243,265,
%T 319,375,405,475,516,625,649,675,714,729,759,1025,1125,1175,1215,1722,
%U 1875,2025,2187,3066,3125,3375,3645,5625,5754,5819,5934,6075,6262,6561
%N Numbers n such that n | 11^n + 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n.
%t Select[ Range[ 10^5 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 22 2000
|
