login
Records in A054471.
1

%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