OFFSET
2,2
COMMENTS
See A379538 for more information and links.
MATHEMATICA
Module[{m}, Table[m = 0; Do[While[Total[IntegerLength[Select[Flatten[FactorInteger[++m]], # > 1 &], n]] >= IntegerLength[m, n]], n-1]; m, {n, 2, 45}]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo Xausa, Dec 25 2024
STATUS
approved
