%I #7 Dec 06 2014 15:38:19
%S 1,3,1154,31,5,29,7,39297,13,19055,18,23,22,21,535,19,20,62537,1138,
%T 45,142,2092793,42,19547,25,39279,50,749,36,39055,1126,39,188,93641,
%U 35,634815079,70,171,86,355,52,65387,713,69,148,253,74
%N Smallest k such that 34^k mod k = n.
%C First unknown term is a(47), where there are no solutions < 2904290724.
%C For a catalog of sequences of the kind "smallest k such that m^k mod k = n," see A178194.
%t aa = {}; Do[k = 1; While[PowerMod[34, 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