|
%I #3 Mar 30 2012 17:30:27
%S 1,5,13,25,65,125,169,221,235,325,625,845,1625,1675,2125,2197,2825,
%T 3125,4225,7943,8125,10985,14365,15625,16705,21125,28561,31375,40625,
%U 54925,78125,82303
%N Numbers n such that n | 11^n + 10^n + 9^n + 8^n + 7^n + 6^n + 5^n + 4^n + 3^n + 2^n.
%t Select[ Range[ 10^5 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 22 2000
|
