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

 

标志

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

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

%我

%第7、7111711711221127112211271211221122111221217121221221,

%电话:1122122117113221122122111122122231231212711322121212,

%U 2112122223112712112312311221321

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

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

%H Reinhard Zumkeller,<a href=“/A022518/b022518.txt”>n,a(n)表格,n=0..21</a>

%e 1171之后的项是通过说“1次,7次,1次2次”得到的,即117112。

%:[split[integridigin]=拆分[Reverse];

%t列表1[n_u]:=列表/@Length/@split[n];riffle1[n_u]:=Riffle[split[n],列表1[n]];

%t tab[n_u]:=表[i,{i,1,2*长度[list1[n]],2}];

%t列表2[nü]:=Append[riffle1[n][[#]],riffle1[n][[#+1]]&/@tab[n];

%t平坦[n_u]:=平坦/@list2[n];riffle2[n_u]:=二分音符[第一个/@flat[n],最后一个/@flat[n]];

%t a[1]=7;a[n_u]:=FromDigits[riffle2[a[n-1]]];数组[a,10](*或*)

%t a[1]=7;a[n_u]:=FromDigits[Flatten[Replace[Replace[Replace[Split[Reverse[IntegerDigits][

%t a[n-1]]],{x,y}->{x,Length[{x,y}]},{1}],{x,y,z}->{x,y,z}]},{1},{x,y,z}]},{1},{x}->{x,长度[{x}]},{1}]];数组[a,10](*{Ivan n.Ianakiev},2016年10月7日*)

%o(哈斯凯尔)

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

%o a022518 n=a022518_列表!!n

%o a022518_list=7:f[7]::[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比照A022481、A022488、A022514、A022515、A022516、A022517、A022519、A022520。

%不,基地,简单,不错

%O 0,1

%A·N·J·A·斯隆_

%从埃里希·弗里德曼那里得到更多的条件_

%1999年6月15日,Patrick De Geest_u从第8学期开始更正

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

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

上次修改日期:美国东部时间2020年12月1日15:30。包含338844个序列。(运行在oeis4上。)