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

7, 11, 11, 6, 19, 12, 28, 32, 39, 35, 32, 14, 18, 49, 23, 1, 33, 53, 8, 81, 31, 9, 4, 43, 40, 8, 115, 96, 42, 50, 142, 67, 147, 73, 118, 95, 171, 15, 171, 104, 146, 142, 139, 210, 154, 107, 222, 1, 1, 248, 85, 79, 19, 142, 22, 182, 278, 213, 116, 140, 123, 50, 81, 318

Offset

5,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 = 5..10000

Mathematica

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

Crossrefs

Cf. table in A054503.

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

Sequence in context: A358721 A133891 A071631 * A134702 A053674 A205679

Adjacent sequences: A054507 A054508 A054509 * A054511 A054512 A054513

Keyword

nonn,easy

Author

N. J. A. Sloane, Apr 09 2000

Extensions

More terms from James A. Sellers, Apr 09 2000

Status

approved