%I #4 May 15 2013 02:05:30
%S 1,2,5,17,11,22,31,25,29,10,51,13,2585,15,23,1354,3157,26,19,30,
%T 14366417,332,85,55,510647,44,341,122,135,52,49,33,27905,136,141,46,
%U 55319,41,115,190,50613,166,205,75,252701,284,203,1322,395,50,1247
%N Smallest k such that 37^k mod k = n
%t aa = {}; Do[k = 1; While[PowerMod[37, k, k] != n, k++ ]; Print[k]; AppendTo[aa, k], {n, 0, 50}]; aa
%Y Cf. A036236, A078457, A119678, A119679, A119714-A119716, A127817-A127821, A128154-A128372, A178194-A178202.
%K nonn
%O 0,2
%A _Artur Jasinski_, May 23 2010
|