|
|
A128149
|
|
Least k such that n^k mod k = n-1.
|
|
28
|
|
|
2929, 137243, 4769, 4021227877, 387497, 7342733, 2592842671511, 22963573117, 18659, 120593747, 13757837, 17651, 17149, 16584420001, 613024059983, 407, 39959, 559, 581831, 305197, 235, 459207143, 855782591, 106709, 17678421233, 240055, 11227
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
t = Table[0, {10000}]; f[n_] := Block[{k = 1}, While[k < 2^23 && PowerMod[n, k, k] + 1 != n, If[ Mod[k, 6] == 1, k += 4, k += 2]]; k]; Do[ If[ t[[n]] == 0, a = f@n; If[a < 2^23, t[[n]] = a; Print[{n, a}]]], {n, 10000}] (* Robert G. Wilson v, Aug 15 2009 *)
|
|
CROSSREFS
|
Cf. A128150 = least k such that n^k mod k = (n-1)^2
Cf. A128172 = least k such that n^k mod k = n+1.
Cf. A128148, A036236, A078457, A119678, A119679, A127816, A119715, A119714, A127817, A127818, A127819, A127820, A127821.
Cf. A128154, A128155, A128156, A128157, A128158, A128159, A128160, A128361, A128362, A128363, A128364, A128365, A128366, A128367, A128368, A128369, A129370, A128371, A128372.
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|