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

1, 1, 0, 1, 2, 3, 1, 2, 1, 2, 10, 1, 2, 1, 1, 1, 2, 2, 3, 14, 1, 2, 1, 2, 1, 4, 1, 1, 4, 1, 3, 2, 1, 2, 4, 2, 1, 3, 1, 1, 2, 12, 10, 1, 1, 6, 6, 1, 1, 2, 1, 2, 6, 10, 1, 1, 4, 10, 1, 2, 1, 1, 1, 2, 39, 1, 2, 3, 1, 2, 1, 2, 3, 1, 18, 1, 4, 1, 16, 24, 2, 2, 2, 1

Offset

1,5

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A270788 A190496 A193926 * A073058 A100336 A275609

Adjacent sequences: A211447 A211448 A211449 * A211451 A211452 A211453

Keyword

nonn

Author

T. D. Noe, Apr 11 2012

Status

approved