A243110 Records in A054471.

3, 11, 37, 101, 239, 271, 1933, 3191, 3541, 4093, 4649, 9091, 21649, 52579, 123551, 210631, 238681, 329401, 333667, 513239, 909091, 2071723, 2906161, 5882353, 10838689, 35121409, 52986961, 70541929, 83251631, 99990001, 121499449, 247629013, 265371653, 1052788969, 1056689261, 1058313049, 5363222357

Offset: 1

Author

Robert G. Wilson v, Aug 20 2014

Keywords

• nonn

Crossrefs

Cf. A054471.

Programs

Mathematica

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

Python

from itertools import islice
from sympy import nextprime, n_order
def A243110_gen(): # generator of terms
    p, c = 5, 2
    yield 3
    while p:=nextprime(p):
        if p-1>c*(k:=n_order(10,p)):
            c = (p-1)//k
            yield int(p) # Chai Wah Wu, Jan 23 2024