%I #3 Mar 30 2012 17:30:27
%S 1,2,5,6,14,25,98,114,125,415,425,625,686,1038,1825,2166,2875,3125,
%T 3625,3775,4802,6625,15625,18875,25878,28714,32242,33614,41154,49075,
%U 60625,78125,90775,94375,96031,132398,173875,235298,259375,265625
%N Numbers n such that n | 5^n + 4^n + 1.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 22 2000