OFFSET
1,1
EXAMPLE
The first three terms are 2000008, 2000080 and 2000082 where no digit 1 is present, and yet we can read the substring ONE when those numbers are written in English: two milli(ON E)ight, two milli(ON E)ighty, two milli(ON E)ighty two, etc.
We cannot use Eleven after milliON, nor Eighteen, as this would produce at least one digit 1.
MATHEMATICA
Select[Range[#, # + 1000] &[2*10^6], And[StringContainsQ[StringJoin@ DeleteCases[Characters@ IntegerName[#, "Words"], _?(! LetterQ[#] &)], "one"], DigitCount[#, 10, 1] == 0] &] (* Michael De Vlieger, Oct 15 2023 *)
PROG
(Python)
from num2words import num2words
def n2w(n): return num2words(n).replace(" and", "").replace(chr(44), "").replace("-", "").replace(" ", "")
def ok(n): return "1" not in str(n) and "one" in n2w(n)
print([k for k in range(2000840) if ok(k)]) # Michael S. Branicky, Oct 15 2023
CROSSREFS
KEYWORD
base,nonn,word
AUTHOR
Eric Angelini, Oct 15 2023
STATUS
approved