login
Numbers n such that n | 4^n + 3^n + 2^n.
0

%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