login
A160660
Numbers that have an "s" in the middle of their names when written in American English.
3
174, 175, 179, 274, 275, 279, 473, 477, 478, 573, 577, 578, 674, 675, 679, 973, 977, 978, 1004, 1005, 1009, 1073, 1077, 1078, 1700, 2004, 2005, 2009, 2073, 2077, 2078, 2700, 3011, 3012, 3020, 3030, 3080, 3090, 3604, 3605, 3609, 4003, 4007, 4008, 4040, 4050
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