OFFSET
1,1
EXAMPLE
174 = onehundredSeventyfour, 175= onehundredSeventyfive, 179= onehundredSeventynine
MATHEMATICA
ok[n_] := Block[{s = StringReplace[IntegerName[n, "Words"], ", " | " " | "\[Hyphen]" -> ""], m}, m = StringLength[s]; OddQ[m] && (m = (m + 1)/2; StringTake[s, {m, m}] == "s")]; Select[ Range[5000], ok] (* Giovanni Resta, May 01 2017 *)
CROSSREFS
KEYWORD
nonn,word,less
AUTHOR
Claudio Meller, May 22 2009
EXTENSIONS
a(19)-a(46) from Giovanni Resta, May 01 2017
STATUS
approved