%I A057302
%S A057302 1,2,5,6,14,25,98,114,125,415,425,625,686,1038,1825,2166,2875,3125,
%T A057302 3625,3775,4802,6625,15625,18875,25878,28714,32242,33614,41154,49075,
%U A057302 60625,78125,90775,94375,96031,132398,173875,235298,259375,265625
%N A057302 Numbers n such that n | 5^n + 4^n + 1.
%t A057302 Select[ Range[ 10^6 ], Mod[ PowerMod[ 5, #, # ] + PowerMod[ 4, #, # ] 
               + 1, # ] == 0 & ]
%Y A057302 Sequence in context: A006596 A000092 A100630 this_sequence A109784 A076624 
               A050216
%Y A057302 Adjacent sequences: A057299 A057300 A057301 this_sequence A057303 A057304 
               A057305
%K A057302 nonn
%O A057302 1,2
%A A057302 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 22 2000