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.

Previous Showing 11-12 of 12 results.

A362122 a(n) is the smallest positive number whose British English name has the letter "e" in the n-th position.

Original entry on oeis.org

8, 7, 1, 3, 3, 12, 13, 17, 21, 23, 23, 73, 1700, 108, 107, 101, 103, 103, 112, 113, 117, 121, 123, 123, 173, 323, 373, 1103, 1103, 1112, 1113, 1117, 1121, 1123, 1123, 1173, 1323, 1373, 3323, 3373, 11373, 13323, 13373, 17373, 23323, 23373, 73373, 101123, 101173, 101323
Offset: 1

Views

Author

N. J. A. Sloane, Apr 20 2023

Keywords

References

  • GCHQ, The GCHQ Puzzle Book, Penguin, 2016. See page 70.

Crossrefs

See A164790, A362120, and A362121 for other versions.

Programs

Formula

a(n) = A362121(n) except at n = 2. - Michael S. Branicky, Apr 21 2023

Extensions

a(14) and beyond from Michael S. Branicky, Apr 21 2023

A173203 a(n) is the smallest number which has in its English name the letter "e" in the n-th position beginning the count from the end, or -1 if no such number exists.

Original entry on oeis.org

1, 3, 13, 7, 8, 11, 21, 17, 23, 74, 73, 104, 103, 111, 115, 113, 117, 124, 123, 173, 373, 723, 773, 873, 1103, 1111, 1115, 1113, 1117, 1124, 1123, 1173, 1323, 1373, 3373, 7323, 7373, 8373, 11373, 17323, 17373, 23373, 73323, 73373, 103323, 103373, 111373
Offset: 1

Views

Author

Claudio Meller, Feb 12 2010

Keywords

Examples

			a(1) = onE, a(2) = thrEe, a(3) =thirtEen, a(4) = sEven, a(5) = Eight, a(6) = Eleven, etc.
		

Crossrefs

Cf. A164790 ("e" in n-th position).
Cf. A173204 (similar for "n"), A173206 (similar for "t").

Programs

  • 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 *)

Extensions

More terms from Robert P. P. McKone, Feb 08 2022
Previous Showing 11-12 of 12 results.