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,1

Links

Table of n, a(n) for n=1..37.

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

Prog

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

Crossrefs

Cf. A054471.

Sequence in context: A306362 A007138 A046107 * A061075 A005422 A040017

Adjacent sequences: A243107 A243108 A243109 * A243111 A243112 A243113

Keyword

nonn

Author

Robert G. Wilson v, Aug 20 2014

Status

approved