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 A243110 #24 Jun 02 2025 14:11:29
%S A243110 3,11,37,101,239,271,1933,3191,3541,4093,4649,9091,21649,52579,123551,
%T A243110 210631,238681,329401,333667,513239,909091,2071723,2906161,5882353,
%U A243110 10838689,35121409,52986961,70541929,83251631,99990001,121499449,247629013,265371653,1052788969,1056689261,1058313049,5363222357
%N A243110 Records in A054471.
%t A243110 p = 2; mx = 0; lst = {}; While[p < 12500000000, m = (p - 1)/MultiplicativeOrder[10, p]; If[m > mx, mx = m; AppendTo[lst, p]; Print[{m, p}]]; p = NextPrime@ p]; lst
%o A243110 (Python)
%o A243110 from itertools import islice
%o A243110 from sympy import nextprime, n_order
%o A243110 def A243110_gen(): # generator of terms
%o A243110 p, c = 5, 2
%o A243110 yield 3
%o A243110 while p:=nextprime(p):
%o A243110 if p-1>c*(k:=n_order(10,p)):
%o A243110 c = (p-1)//k
%o A243110 yield int(p) # _Chai Wah Wu_, Jan 23 2024
%Y A243110 Cf. A054471.
%K A243110 nonn
%O A243110 1,1
%A A243110 _Robert G. Wilson v_, Aug 20 2014