|
%I #13 Jul 31 2021 05:10:14
%S 3,3,10,3,6,3,12,3,38,39,8,3,3,3,3,18,24,12,3,48,6,3,30,3,63,36,90,3,
%T 30,3,3,60,111,3,120,3,3,3,132,102,3,120,3,96,3,63,216,198,90,205,144,
%U 46,3,192,165,52,195,3,279,66,198,3,33,240,3,3,140,226,144,3,3,20,3
%N Log_b 8 where b is smallest primitive root (A001918) mod n-th prime.
%D Tom M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, Table 10.2, pp. 216-217.
%H Amiram Eldar, <a href="/A054511/b054511.txt">Table of n, a(n) for n = 5..10000</a>
%t a[n_] := Module[{p, b, lg = 1}, b = PrimitiveRoot[p = Prime[n]]; While[ PowerMod[b, lg, p] != 8, lg++]; lg]; Array[a, 100, 5] (* _Jean-François Alcover_, Sep 03 2016 *)
%Y Cf. table in A054503.
%Y Cf. A001918, A054505, A054506, A054507, A054508, A054509, A054510, A054512, A054513.
%K nonn,easy
%O 5,1
%A _N. J. A. Sloane_, Apr 09 2000
%E More terms from _James A. Sellers_, Apr 09 2000
|
