A054506 - OEIS

%I #14 Jul 02 2025 16:01:59

%S 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,

%T 1,1,72,1,41,87,81,82,101,94,27,108,56,116,84,181,1,43,1,46,208,1,74,

%U 182,16,1,50,109,117,188,1,1,157,81,164,56,249,1,314,152,26,1,186,75

%N Log_b 3 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="/A054506/b054506.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] != 3 , lg++]; lg]; Array[a, 100, 3] (* _Jean-François Alcover_, Sep 03 2016 *)

%Y Cf. table in A054503.

%Y Cf. A001918, A054505, A054507, 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 Sellers_, Apr 09 2000