[go: up one dir, main page]

login
A211453
(p-1)/x, where p = prime(n) and x = ord(8,p), the smallest positive integer such that 8^x == 1 mod p.
6
0, 1, 1, 6, 1, 3, 2, 3, 2, 1, 6, 3, 2, 3, 2, 1, 1, 3, 3, 2, 24, 6, 1, 8, 6, 1, 6, 1, 9, 4, 18, 1, 2, 3, 1, 30, 3, 3, 2, 1, 1, 3, 2, 6, 1, 6, 3, 6, 1, 3, 8, 2, 30, 5, 16, 2, 1, 6, 3, 4, 3, 1, 9, 2, 6, 1, 33, 48, 1, 3, 4, 2, 6, 3, 3, 2, 1, 9, 2, 6, 1, 3, 10, 18
OFFSET
1,4
MATHEMATICA
nn = 8; Table[If[Mod[nn, p] == 0, 0, (p-1)/MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 11 2012
STATUS
approved