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

Author

N. J. A. Sloane, Apr 09 2000

Keywords

• nonn
• easy

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

Crossrefs

Cf. table in A054503.

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

Programs

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 *)

Extensions

More terms from James Sellers, Apr 09 2000