A178198 Smallest k such that 37^k mod k = n.

1, 2, 5, 17, 11, 22, 31, 25, 29, 10, 51, 13, 2585, 15, 23, 1354, 3157, 26, 19, 30, 14366417, 332, 85, 55, 510647, 44, 341, 122, 135, 52, 49, 33, 27905, 136, 141, 46, 55319, 41, 115, 190, 50613, 166, 205, 75, 252701, 284, 203, 1322, 395, 50, 1247

Offset: 0

Author

Artur Jasinski, May 23 2010

Keywords

• nonn

Crossrefs

Cf. A036236, A078457, A119678, A119679, A119714-A119716, A127817-A127821, A128154-A128372, A178194-A178202.

Programs

Mathematica

aa = {}; Do[k = 1; While[PowerMod[37, k, k] != n, k++ ]; Print[k]; AppendTo[aa, k], {n, 0, 50}]; aa