A054506 Log_b 3 where b is smallest primitive root (A001918) mod n-th prime.

3, 1, 8, 4, 1, 13, 16, 5, 1, 26, 15, 1, 20, 17, 50, 6, 39, 26, 6, 1, 72, 1, 70, 69, 39, 70, 52, 1, 1, 72, 1, 41, 87, 81, 82, 101, 94, 27, 108, 56, 116, 84, 181, 1, 43, 1, 46, 208, 1, 74, 182, 16, 1, 50, 109, 117, 188, 1, 1, 157, 81, 164, 56, 249, 1, 314, 152, 26, 1, 186, 75

Offset

3,1

References

Tom M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, Table 10.2, pp. 216-217.

Links

Amiram Eldar, Table of n, a(n) for n = 3..10000

Mathematica

a[n_] := Module[{p, b, lg = 1}, b = PrimitiveRoot[p = Prime[n]]; While[ PowerMod[b, lg, p] != 3 , lg++]; lg]; Array[a, 100, 3] (* Jean-François Alcover, Sep 03 2016 *)

Crossrefs

Cf. table in A054503.

Cf. A001918, A054505, A054507, A054508, A054509, A054510, A054511, A054512, A054513.

Sequence in context: A178148 A337681 A245180 * A101026 A055249 A125172

Adjacent sequences: A054503 A054504 A054505 * A054507 A054508 A054509

Keyword

nonn,easy

Author

N. J. A. Sloane, Apr 09 2000

Extensions

More terms from James A. Sellers, Apr 09 2000

Status

approved