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,2

Links

Table of n, a(n) for n=0..50.

Mathematica

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

Crossrefs

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

Sequence in context: A115894 A033835 A366609 * A005529 A259255 A274903

Adjacent sequences: A178195 A178196 A178197 * A178199 A178200 A178201

Keyword

nonn

Author

Artur Jasinski, May 23 2010

Status

approved