A093004 Erroneous version of A003588.
100, 500, 1, 50, 5
Offset: 1
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.
Written in Roman numerals, the sequence reads: I, V, X, L, C, D, M, II, IV, VI, IX, XI, XV, XX, XL, LI, LV, LX, XC, CI, CV, CX, CL, CC, CD, DI, DV, DX, DL, DC, CM, MI, MV, MX, MV, MC, MD, MM, III, VII, XII, ... - _M. F. Hasler_, Jan 12 2015
A003587full = SortBy[Range[3999], StringLength[RomanNumeral[#]] &]; A003587full[[;;100]] (* Paolo Xausa, Mar 19 2024 *)
for(d=1,4,for(n=d,d*1000,A006968(n)==d && print1(n","))) \\ M. F. Hasler, Jan 12 2015
def f(s, k):
return s[:2] if k==4 else (s[1]*(k>=5)+s[0]*(k%5) if k<9 else s[0]+s[2])
def roman(n):
m, c, x, i = n//1000, (n%1000)//100, (n%100)//10, n%10
return "M"*m + f("CDM", c) + f("XLC", x) + f("IVX", i)
def afull():
return sorted(list(range(1, 4000)), key=lambda x: (len(roman(x)), x))
print(afull()) # Michael S. Branicky, Dec 04 2022
Comments