A160662 Numbers that have a "e" in the middle of their names

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

Links

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

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

Cf. A160658, A160659, A160660, A160661.

Sequence in context: A128737 A320228 A130548 * A090084 A025221 A271040

Adjacent sequences: A160659 A160660 A160661 * A160663 A160664 A160665

Keyword

nonn,word,less

Author

Claudio Meller, May 22 2009

Extensions

Data corrected by Giovanni Resta, May 01 2017

Status

approved