%I #3 Mar 30 2012 17:30:27
%S 1,3,7,9,27,49,81,133,243,267,343,729,2187,2401,5999,6561,14063,14337,
%T 16807,17253,19683,22329,33323,45619,59049,75573,117649,144531,177147,
%U 348519,383913,531441,745339,823543,911853
%N Numbers n such that n | 8^n + 6^n + 4^n + 2^n + 1.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 8, #, # ] + PowerMod[ 6, #, # ] + PowerMod[ 4, #, # ] + PowerMod[ 2, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 09 2000
|