login
Smallest k such that 34^k mod k = n.
1

%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