This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A054507 #15 Jul 02 2025 16:01:59
%S A054507 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 A054507 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 A054507 96,118,2,38,18,128,36,2,186,44,236,2,242,272,2,2,328,270,218,2,2,268,2
%N A054507 Log_b 4 where b is smallest primitive root (A001918) mod n-th prime.
%D A054507 Tom M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, Table 10.2, pp. 216-217.
%H A054507 Amiram Eldar, <a href="/A054507/b054507.txt">Table of n, a(n) for n = 3..10000</a>
%t A054507 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 A054507 Cf. table in A054503.
%Y A054507 Cf. A001918, A054505, A054506, A054508, A054509, A054510, A054511, A054512, A054513.
%K A054507 nonn,easy
%O A054507 3,1
%A A054507 _N. J. A. Sloane_, Apr 09 2000
%E A054507 More terms from _James Sellers_, Apr 09 2000