%I #3 Mar 30 2012 17:30:26
%S 1,3,9,27,33,81,143,243,729,2187,2673,4779,6561,8613,9713,19683,30393,
%T 55647,59049,79257,94113,162081,177147,216513,225837,281961,531441,
%U 1033803,1594323,2318147,3053781,4337031,4782969,6042681
%N Numbers n such that n | 4^n + 3^n + 2^n.
%t Select[ Range[ 1, 10^7, 2 ], Mod[ PowerMod[ 4, #, # ] + PowerMod[ 3, #, # ] + PowerMod[ 2, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 20 2000