%I #3 Mar 30 2012 17:30:26
%S 1,23,529,1081,3197,12167,19067,24863,50807,73531,150259,279841,
%T 438541,444383,571849,896149,1168561,1691213,2387929,2650313,3455957,
%U 6436343,7062173,10086443,10220809,13152527,15806543,20611427,20886001
%N Numbers n such that n | 12^n + 11^n.
%t Do[ If[ Mod[ PowerMod[ 12, n, n ] + PowerMod[ 11, n, n ], n] == 0, Print[n]], {n, 1, 10^8} ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 15 2000
|