A211452 (p-1)/x, where p = prime(n) and x = ord(7,p), the smallest positive integer such that 7^x == 1 mod p.

1, 2, 1, 0, 1, 1, 1, 6, 1, 4, 2, 4, 1, 7, 2, 2, 2, 1, 1, 1, 3, 1, 2, 1, 1, 1, 2, 1, 4, 8, 1, 2, 2, 2, 2, 1, 3, 1, 2, 1, 1, 15, 19, 8, 2, 2, 1, 6, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 14, 2, 1, 2, 10, 3, 2, 3, 6, 1, 1, 11, 1, 6, 6, 1, 2, 4, 1, 2, 17, 22, 6, 1, 1, 6

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

nn = 7; Table[If[Mod[nn, p] == 0, 0, (p-1)/MultiplicativeOrder[nn, p]], {p, Prime[Range[100]]}]

Crossrefs

Cf. A001917, A094593, A211449, A211450, A211451, A211453, A211454, A006556.

Sequence in context: A394257 A336727 A316101 * A035188 A342148 A066295

Adjacent sequences: A211449 A211450 A211451 * A211453 A211454 A211455

Keyword

nonn

Author

T. D. Noe, Apr 11 2012

Status

approved