# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a243110
Showing 1-1 of 1

%I A243110 #21 Feb 14 2024 01:09: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 next_prime, n_order
%o A243110 def A243110_gen(): # generator of terms
%o A243110     p, c = 5, 2
%o A243110     yield 3
%o A243110     while p:=next_prime(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

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE