login
A160662
Numbers that have a "e" in the middle of their names
3
10, 70, 115, 116, 170, 183, 187, 188, 215, 216, 270, 283, 287, 288, 317, 321, 322, 326, 331, 332, 336, 344, 345, 349, 354, 355, 359, 364, 365, 369, 381, 382, 386, 391, 392, 396, 413, 414, 418, 419, 441, 442, 446, 451, 452, 456, 461, 462, 466, 513, 514, 518, 519
OFFSET
1,1
EXAMPLE
10 = tEn, 70 = sevEnty, 115 = onehundrEdfifteen, so 10, 70, and 115 are terms.
MATHEMATICA
ok[n_] := Block[{s = StringReplace[IntegerName[n, "Words"], ", " | " " | "\[Hyphen]" -> ""], m}, m = StringLength[s]; OddQ[m] && (m = (m + 1)/2; StringTake[s, {m, m}] == "e")]; Select[ Range[5000], ok] (* Giovanni Resta, May 01 2017 *)
CROSSREFS
KEYWORD
nonn,word,less
AUTHOR
Claudio Meller, May 22 2009
EXTENSIONS
Data corrected by Giovanni Resta, May 01 2017
STATUS
approved