OFFSET
1,1
MATHEMATICA
FactorInteger[#][[-1, 1]]&/@Table[FromDigits[Flatten[IntegerDigits/@Range[n]]]+1, {n, 30}] (* Harvey P. Dale, Dec 20 2022 *)
PROG
(Python)
from sympy import factorint
def a(n): return max(factorint(int("".join(map(str, range(1, n+1)))) + 1))
print([a(n) for n in range(1, 24)]) # Michael S. Branicky, Dec 20 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 20 2022
STATUS
approved