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 A054508 #15 Jul 02 2025 16:01:59 %S A054508 5,4,9,5,16,1,22,20,23,22,25,1,47,6,22,15,28,1,62,27,70,1,24,1,47,76, %T A054508 83,87,46,75,86,104,112,1,15,1,39,138,156,50,1,89,138,132,89,11,98, %U A054508 165,138,138,130,55,1,208,170,1,186,233,173,1,196,39,243,236,33,277,314 %N A054508 Log_b 5 where b is smallest primitive root (A001918) mod n-th prime. %D A054508 Tom M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, Table 10.2, pp. 216-217. %H A054508 Amiram Eldar, <a href="/A054508/b054508.txt">Table of n, a(n) for n = 4..10000</a> %t A054508 a[n_] := Module[{p, b, lg = 1}, b = PrimitiveRoot[p = Prime[n]]; While[ PowerMod[b, lg, p] != 5, lg++]; lg]; Array[a, 100, 4] (* _Jean-François Alcover_, Sep 03 2016 *) %Y A054508 Cf. table in A054503. %Y A054508 Cf. A001918, A054505, A054506, A054507, A054509, A054510, A054511, A054512, A054513. %K A054508 nonn,easy %O A054508 4,1 %A A054508 _N. J. A. Sloane_, Apr 09 2000 %E A054508 More terms from _James Sellers_, Apr 09 2000