OFFSET
1,2
LINKS
Robert P. P. McKone, Table of n, a(n) for n = 1..58
EXAMPLE
a(1) = onE, a(2) = thrEe, a(3) =thirtEen, a(4) = sEven, a(5) = Eight, a(6) = Eleven, etc.
MATHEMATICA
ePos[n_] := Flatten@Position[DeleteCases[Reverse@Characters@IntegerName[n, "Words"], a_ /; MemberQ[{" ", "\[Hyphen]"}, a]], "e"]; t = {}; i = 1; Monitor[Table[Do[If[MemberQ[ePos[i], n], Return[lst = AppendTo[t, i]; i = 1; lst], i++], \[Infinity]], {n, 1, 47, 1}] // Last, {ProgressIndicator[n, {1, 47}], n, i}] (* Robert P. P. McKone, Feb 07 2022 *)
CROSSREFS
KEYWORD
nonn,word
AUTHOR
Claudio Meller, Feb 12 2010
EXTENSIONS
More terms from Robert P. P. McKone, Feb 08 2022
STATUS
approved