OFFSET
1,1
MATHEMATICA
Table[Module[{k=10^n-1}, While[DigitCount[k, 10, 0]>0||DigitCount[k^10, 10, 0]>0, k--]; k], {n, 16}] (* Harvey P. Dale, Mar 28 2025 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Dec 22 2006
STATUS
approved
