|
|
A211243
|
|
Order of 7 mod n-th prime: least k such that prime(n) divides 7^k-1.
|
|
7
|
|
|
1, 1, 4, 0, 10, 12, 16, 3, 22, 7, 15, 9, 40, 6, 23, 26, 29, 60, 66, 70, 24, 78, 41, 88, 96, 100, 51, 106, 27, 14, 126, 65, 68, 69, 74, 150, 52, 162, 83, 172, 178, 12, 10, 24, 98, 99, 210, 37, 113, 228, 116, 238, 240, 125, 256, 262, 268, 135, 138, 20, 141, 292
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
nn = 7; Table[If[Mod[nn, p] == 0, 0, MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]
|
|
PROG
|
(GAP) A000040:=Filtered([1..350], IsPrime);;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|