登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志

请做一个捐赠让OEIS继续运行。我们现在已经56岁了。在过去的一年里,我们增加了10000个新序列,达到了近9000个引用(通常说“感谢OEI的发现”)。
其他方式捐赠

提示
(问候来自整数序列在线百科全书!)
A022481号 从右边描述上一项(方法B—初始项为1)。 11

%我

%第1,11,122111132111212131113311122112211331211122132111221322122221,

%电话:1122112311311122112122213311123121122212,

%U 21112312211131211211332112311

%N从右边描述上一项(方法B—初始项为1)。

%C方法B=‘数字’——指示后接‘频率’。

%H Reinhard Zumkeller,<a href=“/A022481/b022481.txt”>n,a(n)表,n=1..24</a>

%例如,1321年之后的术语是通过说“1次,2次,3次,1次”得到的,即11213111。

%t A022481[1]:=1;A022481[n_9]:=A022481[n]=FromDigits[Flatten[{First[#],Length[#]]}&/@Split[Reverse[IntegerDigits[a02481[n-1]]]];地图[A022481,射程[15]](*\u Peter J.C.Moses,2013年4月22日*)

%a[1]=1;a[n〈U]:=a[n]=FromDigits[压扁[更换[更换[更换[更换[分裂[反转[整数数字Digits[a[n-1]]]],{x x,y{{x,y}}{x,长度{{x,y}]},{1}],{1}],{x x,y,z}>{x,长度{x,y,y,z}}]}{1}1}1}],{x{x{x{x{x{x{x{x{x]},{1}]]];数组[a,15](*\Ivan n.Ianakiev,2017年6月22日*)

%t NestList[FromDigits@Flatten@Reverse@Map[{First@,Length@}&,Split@IntegerDigits@&,1,11](*\u Michael De Vlieger,2017年6月26日*)

%o(哈斯凯尔)

%o导入数据。列表(分组,转置)

%o a022481 n=a022481_列表!!(n-1)

%o a022481_list=1:f[1]::[Integer]其中

%o f xs=(读取$concatMap show ys):fys where

%o ys=concat$转置[地图头zss,地图长度zss]

%o zss=反向$group xs

%o--Reinhard Zumkeller,2014年1月26日

%Y比照A022488、A022514、A022515、A022516、A022517、A022518、A022519、A022520。

%不,基地,简单,不错

%O 1,2号

%阿尤克拉克金伯利_

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年11月26日21:20。包含338641个序列。(运行在oeis4上。)