The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A093796 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A093796

Sequence of digit-values after concatenating the natural numbers < 4000 in Roman numeral representation.
(history; published version)

#32 by Charles R Greathouse IV at Sun Feb 16 08:32:53 EST 2025

LINKS

Eric Weisstein's World of Mathematics, <a href="httphttps://mathworld.wolfram.com/RomanNumerals.html">Roman Numerals</a>

Discussion

Sun Feb 16

08:32

OEIS Server: https://oeis.org/edit/global/3014

#31 by Peter Luschny at Tue Mar 05 07:10:15 EST 2024

STATUS

reviewed

approved

#30 by Joerg Arndt at Tue Mar 05 02:41:18 EST 2024

STATUS

proposed

reviewed

#29 by Michael S. Branicky at Mon Mar 04 16:07:45 EST 2024

STATUS

editing

proposed

#28 by Michael S. Branicky at Mon Mar 04 16:07:36 EST 2024

PROG

(Python)

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 r(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():

v = {"I":1, "V":5, "X":10, "L":50, "C":100, "D":500, "M":1000}

ans = []

for i in range(1, 4000): ans.extend([v[d] for d in r(i)])

return ans

print(afull()[:80]) # Michael S. Branicky, Mar 04 2024

STATUS

proposed

editing

Discussion

Mon Mar 04

16:07

Michael S. Branicky: yes here too

#27 by Paolo Xausa at Mon Mar 04 02:40:46 EST 2024

STATUS

editing

proposed

Discussion

Mon Mar 04

02:49

Joerg Arndt: IMO yes

#26 by Paolo Xausa at Mon Mar 04 02:38:45 EST 2024

MATHEMATICA

A093796full = Flatten[FromRomanNumeral[Characters[RomanNumeral[ Range[3999]]]]]; A093796full[[; ; 100]] (* _Paolo Xausa_, Mar 03 2024 *)

A093796full[[;; 100]] (* Paolo Xausa, Mar 03 2024 *)

#25 by Paolo Xausa at Sun Mar 03 17:14:19 EST 2024

MATHEMATICA

A093796full = Flatten[FromRomanNumeral[Characters[RomanNumeral[ Range[3999]]]]]; A093796full[[;; 100]] (* Paolo Xausa, Mar 03 2024 *)

#24 by Paolo Xausa at Sun Mar 03 17:12:56 EST 2024

NAME

Sequence of digit-values after concatenating the natural numbers < 4000 in Roman numeral representation.

#23 by Paolo Xausa at Sun Mar 03 17:11:43 EST 2024

MATHEMATICA

A093796full = Flatten[FromRomanNumeral[Characters[RomanNumeral[Range[3999]]]]]; A093796full[[;; 100]] (* Paolo Xausa, Mar 03 2024 *)

KEYWORD

nonn,base,easy,fini,full,changed