A160660 Numbers that have an "s" in the middle of their names when written in American English.

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

Links

Table of n, a(n) for n=1..46.

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

Cf. A160658, A160659, A160661, A160662.

Sequence in context: A096709 A180417 A351375 * A025390 A045257 A025381

Adjacent sequences: A160657 A160658 A160659 * A160661 A160662 A160663

Keyword

nonn,word,less

Author

Claudio Meller, May 22 2009

Extensions

a(19)-a(46) from Giovanni Resta, May 01 2017

Status

approved