login
A178201
Smallest k such that 40^k mod k = n.
1
1, 3, 19, 37, 6, 7, 17, 11, 92, 31, 15, 29, 794, 21, 26, 215, 22, 23, 98, 49, 124, 19849, 42, 12405874306277, 284, 75, 1574, 221, 36, 323, 70, 119, 56, 133, 58, 685, 44, 69, 142, 187, 41, 31561, 82, 3197, 148, 10073, 51, 511, 176, 37603, 62, 437, 86, 1339, 1546, 63, 386, 12599, 138, 3017, 140, 493, 1538, 529, 72, 935, 118, 303, 253, 277061, 95
OFFSET
0,2
MATHEMATICA
aa = {}; Do[k = 1; While[PowerMod[40, 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(23) onward from Max Alekseyev, Mar 19 2012
STATUS
approved