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 A098937 #6 Jul 04 2021 03:23:28
%S A098937 5,38,387,3755,37523,374126,3740610,37393725,373953691,3739544360
%N A098937 Number of cyclic numbers, primes with primitive root 10, (A001913) in the first 10^n primes (A000040).
%F A098937 Lim_{n->oo} a(n)/10^n = Artin's constant (A005596).
%t A098937 f[n_Integer] := Block[{ds = Divisors[n - 1]}, (n - 1)/Take[ds, Position[ PowerMod[10, ds, n], 1][[1, 1]]][[ -1]]]; c = 0; k = 4; Do[ While[k <= 10^n, a = f[ Prime[k]]; If[a == 1, c++ ]; k++ ]; Print[c], {n, 7}]
%Y A098937 Cf. A001913, A006883, A000040, A005596.
%K A098937 base,more,nonn
%O A098937 1,1
%A A098937 _Robert G. Wilson v_, Oct 19 2004
%E A098937 a(8)-a(10) from _Amiram Eldar_, Jul 04 2021