A163273 Fixed points of A036742.
1659, 1669, 1679, 1689, 3620, 3621, 3622, 3623, 3624, 3630, 3631, 3632, 3633, 3634
Offset: 1
Formula
{n: A036742(n) = n}.
Extensions
Edited by R. J. Mathar, Jul 27 2009
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.
from roman import toRoman last=100; A36741=[(last:=n) for n in range(1, 40) if toRoman(n)>toRoman(last)] def A036741(n): return A36741[n-1] # M. F. Hasler, Aug 16 2025
A036743 := sort([seq(convert(n,roman), n=1..3999)], not lexorder): seq(convert(A036743[n], arabic), n=1..62); # Nathaniel Johnston, May 18 2011
FromRomanNumeral[ReverseSort[RomanNumeral[Range[3999]]]] (* Paolo Xausa, Aug 18 2025 *)
def A036743(n): return A36742[3999-n] # See A036742. - M. F. Hasler, Aug 16 2025
For n = 5, the 2n-1 list elements sorted by Roman numerals are I, II, III, IV, IX, V, VI, VII, VIII and the middle element is IX = 9 = a(5).
Table[SortBy[Range[2*n-1], RomanNumeral][[n]], {n, 100}] (* Misha Lavrov via SeqFan *)
import roman def A387014(n): return roman.fromRoman(sorted(roman.toRoman(k)for k in range(1,2*n))[n-1]) # M. F. Hasler, Aug 18 2025
Comments