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

0, 2, 2, 2, 2, 2, 4, 2, 2, 2, 6, 2, 4, 6, 2, 2, 2, 2, 2, 2, 8, 2, 2, 8, 4, 2, 2, 2, 6, 8, 18, 2, 4, 2, 2, 10, 6, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 6, 2, 6, 8, 2, 20, 10, 32, 2, 2, 2, 6, 8, 6, 2, 6, 2, 4, 2, 22, 16, 2, 2, 8, 2, 2, 2, 2, 2, 2, 18, 4, 4, 2, 2, 10, 12

Offset

1,2

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A060594 A327813 A104361 * A086876 A373303 A376938

Adjacent sequences: A211446 A211447 A211448 * A211450 A211451 A211452

Keyword

nonn

Author

T. D. Noe, Apr 11 2012

Status

approved