A093796-OEIS公司

A093796号

在罗马数字表示法中，将小于4000的自然数串联后的数字值序列。

1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 1, 5, 1, 1, 5, 1, 1, 1, 1, 10, 10, 10, 1, 10, 1, 1, 10, 1, 1, 1, 10, 1, 5, 10, 5, 10, 5, 1, 10, 5, 1, 1, 10, 5, 1, 1, 1, 10, 1, 10, 10, 10, 10, 10, 1, 10, 10, 1, 1, 10, 10, 1, 1, 1, 10, 10, 1, 5, 10, 10, 5, 10, 10, 5, 1, 10, 10, 5, 1

(列表;图表;参考文献;听;历史;文本;内部格式)

抵消

1,8

换句话说，阅读不带空格的自然数罗马数字序列：I II III IV V VI VII IX。。。，将I替换为1，将V替换为5，将X替换为10，依此类推。

参考文献

GCHQ，GCHQ拼图书，企鹅出版社，2016年。见问题300（b），第199页。

链接

纳撒尼尔·约翰斯顿，n=1..30000时的n，a（n）表（最多3999个）

斯蒂芬斯·吉布斯，罗马数字和日期转换

埃里克·魏斯坦的数学世界，罗马数字

例子

I、 II、III、IV、V、VI、VII、VIII、IX、X、XI、XII。。。

一、（一、一）、（一、我、一），（一、五）、五、（五、一）。。。

1,(1,1),(1,1,1),(1,5),5,(5,1),(5,1,1),(5,1,1,1),(1,10), ...

1,1,1,1,1,1,1,5,5,5,1,5,1,1,5,1,1,1,1,10,10,10,1,10,1,1, ...

MAPLE公司

对于从1到50的n，执行r:=转换（n，罗马）：对于从1至长度的j，执行打印f（“%d，”，转换（r[j]，阿拉伯语）：od:od：#纳撒尼尔·约翰斯顿2011年5月18日

数学

A093796full=扁平[从RomanNumeral[字符[罗马数字[范围[3999]]]]；

A093796完整[[；；100]](*保罗·沙萨2024年3月3日*）

黄体脂酮素

（哈斯克尔）

导入数据。列表（展开器）

a093796 n=a093796列表！！n个

a093796_list=concatMap（reverse.unloadr r）$map a061493[1..3999]

其中r 0=无

r x=只是（[0,1,5,10,501005001000]！！fromInteger d，x'）

其中（x'，d）=divMod x 10

--莱因哈德·祖姆凯勒2013年4月14日

（Python）

定义f（s，k）：

如果k==4，则返回s[：2]（s[1]*（k>=5）+s[0]*（k%5）如果k<9，则返回s[0]+s[2]）

定义（n）：

m、 c，x，i=n//1000，（n%1000）//100，（n%1100）//10，n%10

return“M”*M+f（“CDM”，c）+f（”XLC“，x）+f（”IVX“，i）

定义afull（）：

v={“I”：1，“v”：5，“X”：10，“L”：50，“C”：100，“D”：500，“M”：1000}

ans=[]

对于范围（14000）中的i：ans.extend（[v[d]对于r（i）中的d）

返回ans

打印（afull（）[：80]）#迈克尔·布拉尼基2024年3月4日

交叉参考

囊性纤维变性。A007376号.

囊性纤维变性。A061493号;A222581型（运行长度）。

上下文中的序列：A374753型 A230192型 A172359号*A021647美元 A181668号 A247824号

相邻序列：A093793号 A093794号 A093795型*A093797号 A093798号 A093799美元

关键词

非n,基础,容易的,完成,满的

作者

莱因哈德·祖姆凯勒2004年5月18日

状态

经核准的