login
A178200
Smallest k such that 39^k mod k = n.
1
1, 2, 37, 6, 5, 17, 11, 1514, 31, 12, 29, 70, 159, 26, 85, 21, 23, 94, 33, 1502, 779, 30, 253529023201, 214, 25, 28, 299, 54, 2905241561, 115, 77, 298, 96172711, 48, 13243955, 1486, 63, 106, 1841252062709911, 41, 13343, 74, 59277, 1478, 119, 82, 697, 134, 69, 176, 70961, 150, 481, 116, 55, 1466, 3161, 84, 437, 86, 511, 146, 13787, 153, 90224135, 104, 6789, 1454, 140459, 132, 958471, 1303310, 87, 362, 175, 482, 1369, 244, 93, 98, 2501, 88, 119239, 1438, 1077, 692, 2258141, 102, 9066799, 358, 99, 130, 46859, 506, 121, 217, 187, 124, 163067, 105, 40649
OFFSET
0,2
MATHEMATICA
aa = {}; Do[k = 1; While[PowerMod[39, k, k] != n, k++ ]; Print[{n, k}]; AppendTo[aa, k], {n, 1, 50}]; aa
KEYWORD
nonn
AUTHOR
Artur Jasinski, May 23 2010
EXTENSIONS
Terms a(22) onward from Max Alekseyev, Feb 04 2012, Apr 13 2012
STATUS
approved