OFFSET
1,2
EXAMPLE
oNe, seveNteen, onehundredNinetythree, ...
MATHEMATICA
ok[n_] := Block[{s = StringReplace[IntegerName[n, "Words"], ", " | " " | "\[Hyphen]" -> ""], m}, m = StringLength[s]; OddQ[m] && (m = (m + 1)/2; StringTake[s, {m, m}] == "n")]; Select[Range[5000], ok] (* Giovanni Resta, May 01 2017 *)
PROG
(Python)
from num2words import num2words
def middle(s): return s[len(s)//2] if len(s)%2 == 1 else None
def n2w(n):
map = {ord(c): None for c in "-, "}
return num2words(n).replace(" and", "").translate(map)
def aupto(nn): return [n for n in range(1, nn+1) if middle(n2w(n)) == 'n']
print(aupto(1678)) # Michael S. Branicky, Jan 17 2021
CROSSREFS
KEYWORD
nonn,word,less
AUTHOR
Claudio Meller, May 22 2009
EXTENSIONS
a(24)-a(47) from Giovanni Resta, May 01 2017
STATUS
approved