%I #21 Feb 14 2024 01:09:29
%S 3,11,37,101,239,271,1933,3191,3541,4093,4649,9091,21649,52579,123551,
%T 210631,238681,329401,333667,513239,909091,2071723,2906161,5882353,
%U 10838689,35121409,52986961,70541929,83251631,99990001,121499449,247629013,265371653,1052788969,1056689261,1058313049,5363222357
%N Records in A054471.
%t 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 (Python)
%o from itertools import islice
%o from sympy import next_prime, n_order
%o def A243110_gen(): # generator of terms
%o p, c = 5, 2
%o yield 3
%o while p:=next_prime(p):
%o if p-1>c*(k:=n_order(10,p)):
%o c = (p-1)//k
%o yield int(p) # _Chai Wah Wu_, Jan 23 2024
%Y Cf. A054471.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 20 2014