%I
%S 1,3,5,9,15,25,27,45,75,81,125,135,225,243,265,375,405,625,675,729,
%T 765,1005,1125,1143,1215,1875,2025,2125,2151,2187,2403,3125,3375,3645,
%U 5427,5625,6075,6561,9375,10125,10935,13095,15625,16875,17145,18225,19683
%N Numbers n such that n  6^n + 5^n + 4^n.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ], # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 20 2000
