%I #11 Mar 09 2022 01:14:23

%S 7,1,20,9,17,19,24,19,91,94,93,101,104,103,111,115,113,117,124,123,

%T 173,923,973,1101,1104,1103,1111,1115,1113,1117,1124,1123,1173,1323,

%U 1373,9323,9373,17373,19173,19323,19373,91373,93323

%N a(n) is the smallest number which has in its English name the letter "n" in the n-th position beginning the count from the end.

%e a(1) = seveN, a(2) = oNe, a(3) = tweNty, a(4)= Nine, a(5) = seveNteen, etc.

%t ePos[n_] := Flatten@Position[DeleteCases[Reverse@Characters@IntegerName[n, "Words"], a_ /; MemberQ[{" ", "\[Hyphen]"}, a]], "n"]; t = {}; i = 1; Monitor[Table[Do[If[MemberQ[ePos[i], n], Return[lst = AppendTo[t, i]; i = 1; lst], i++], \[Infinity]], {n, 1, 43, 1}] // Last, {ProgressIndicator[n, {1, 43}], n, i}] (* _Robert P. P. McKone_, Feb 07 2022 *)

%Y Cf. A164791 ("n" in n-th position),.

%Y Cf. A173203 (similar for "e"), A173206 (similar for "t").

%K nonn,word

%O 1,1

%A _Claudio Meller_, Feb 12 2010

%E More terms from _Robert P. P. McKone_, Feb 08 2022