%I #14 Jul 31 2021 05:09:06
%S 2,4,2,2,12,2,4,2,18,2,12,12,36,2,2,2,2,12,16,8,2,32,68,2,88,2,6,24,
%T 18,2,20,2,2,140,126,2,80,2,2,2,88,68,2,14,2,138,2,42,144,132,140,220,
%U 96,118,2,38,18,128,36,2,186,44,236,2,242,272,2,2,328,270,218,2,2,268,2
%N Log_b 4 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="/A054507/b054507.txt">Table of n, a(n) for n = 3..10000</a>
%t a[n_] := Module[{p, b, lg = 1}, b = PrimitiveRoot[p = Prime[n]]; While[ PowerMod[b, lg, p] != 4, lg++]; lg]; Array[a, 100, 3] (* _Jean-François Alcover_, Sep 03 2016 *)
%Y Cf. table in A054503.
%Y Cf. A001918, A054505, A054506, A054508, A054509, A054510, A054511, A054512, A054513.
%K nonn,easy
%O 3,1
%A _N. J. A. Sloane_, Apr 09 2000
%E More terms from _James A. Sellers_, Apr 09 2000
|