%我

%第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学期开始更正