|
%I #12 May 02 2017 11:48:47
%S 174,175,179,274,275,279,473,477,478,573,577,578,674,675,679,973,977,
%T 978,1004,1005,1009,1073,1077,1078,1700,2004,2005,2009,2073,2077,2078,
%U 2700,3011,3012,3020,3030,3080,3090,3604,3605,3609,4003,4007,4008,4040,4050
%N Numbers that have an "s" in the middle of their names when written in American English.
%e 174 = onehundredSeventyfour, 175= onehundredSeventyfive, 179= onehundredSeventynine
%t 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 *)
%Y Cf. A160658, A160659, A160661, A160662.
%K nonn,word,less
%O 1,1
%A _Claudio Meller_, May 22 2009
%E a(19)-a(46) from _Giovanni Resta_, May 01 2017
|
