cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A173204 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.

This page as a plain text file.
%I A173204 #11 Mar 09 2022 01:14:23
%S A173204 7,1,20,9,17,19,24,19,91,94,93,101,104,103,111,115,113,117,124,123,
%T A173204 173,923,973,1101,1104,1103,1111,1115,1113,1117,1124,1123,1173,1323,
%U A173204 1373,9323,9373,17373,19173,19323,19373,91373,93323
%N A173204 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 A173204 a(1) = seveN, a(2) = oNe, a(3) = tweNty, a(4)= Nine, a(5) = seveNteen, etc.
%t A173204 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 A173204 Cf. A164791 ("n" in n-th position),.
%Y A173204 Cf. A173203 (similar for "e"), A173206 (similar for "t").
%K A173204 nonn,word
%O A173204 1,1
%A A173204 _Claudio Meller_, Feb 12 2010
%E A173204 More terms from _Robert P. P. McKone_, Feb 08 2022