A057235 - OEIS

%I #3 Mar 30 2012 17:30:26

%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