|
%I #3 Mar 30 2012 17:30:27
%S 1,2,3,9,27,57,62,81,243,459,621,729,1083,1922,2187,6561,10287,14337,
%T 18411,19683,20577,24909,37179,59049,59582,121743,144026,150903,
%U 177147,187353,390963,531441,845883,944599
%N Numbers n such that n | 6^n + 5^n + 1.
%t Select[ Range[ 10^6 ], Mod[ PowerMod[ 6, #, # ] + PowerMod[ 5, #, # ] + 1, # ] == 0 & ]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 22 2000
|
