%I #4 Mar 30 2012 17:30:27
%S 1,2,3,9,22,26,27,81,213,242,243,286,338,638,729,2187,2662,3146,3718,
%T 4394,6561,7282,10233,14337,17253,19683,29282,30699,34606,36842,39754,
%U 40898,48334,54626,57122,59049,70906,77031,92097,107822,154846,177147
%N Numbers n such that n | 11^n + 9^n + 7^n + 5^n + 3^n + 1.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 11, #, # ] + PowerMod[ 9, #, # ] + PowerMod[ 7, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 3, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 08 2000