|
%I #4 Mar 30 2012 17:30:26
%S 1,2,6,19,78,122,209,247,361,979,1014,1577,5819,6859,8346,13182,71599,
%T 75449,89167,115159,127699,130321,140429,142194,171366,207727,212563,
%U 225929,267007,274242,353419,686478,854778,920959
%N Numbers n such that n | 11^n + 10^n + 9^n + 8^n.
%t Select[ Range[ 1, 10^6 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 10, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 8, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 20 2000
|
