%I #3 Mar 30 2012 17:30:27
%S 1,3,9,27,51,81,243,279,729,2187,4131,4947,6561,19683,21213,22599,
%T 23571,48357,59049,104733,177147,184419,220887,334611,531441,640791,
%U 808461
%N Numbers n such that n | 5^n + 3^n +1.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 5, #, # ] + PowerMod[ 3, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 08 2000
|