|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|