%I#21 2016年10月14日08:12:15

%S 7，71117111711221127112211271，11271211221112212211171211221，

%电话1122122111711322112212211122122231127112711322112212，

%电话：2111221222311212112311221321

%N从右边描述上一个术语（方法B-初始术语为7）。

%C方法B=“数字”-指示后跟“频率”。

%H Reinhard Zumkeller，n表，n=0..21的a（n）</a>

%e 1171之后的术语通过“1一次，7一次，1两次”获得，即117112。

%t split[n_]：=拆分[Reverse[Integer Digits[n]]]；

%t list1[n_]：=列表/@Length/@split[n]；riffle1[n_]：=Riffle[split[n]，list1[n]]；

%t制表符[n_]：=表[i，{i，1,2*长度[list1[n]]，2}]；

%t列表2[n_]：=附加[riffle1[n][[#]]，riffle1\n][#+1]]&/@tab[n]；

%t扁平[n_]：=扁平/@list2[n]；riffle2[n]：=Riffle[第一个/@flat[n]，最后一个/@flat[n]]；

%ta[1]=7；a[n_]：=起始数字[riffle2[a[n-1]]；数组[a，10]（*或*）

%ta[1]=7；a[n_]：=FromDigits[Flatten[Replace[Replace[Split[Reverse[IntegerDigits[

%t a[n-1]]]，{x，y}->{x，长度[{x，y}]}，{1}]，{x，y，z}->{x，长度[{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）：f ys其中

%o ys=concat$转置[map head zss，map length zss]

%o zss=反向$group xs

%o——_Reinhard Zumkeller_，2014年1月26日

%Y参见A022481、A022488、A022514、A022515、A022516、A022517、A022519、A022520。

%K nonn，基础，简单，好

%0、1

%A _N.J.A.斯隆_

%E来自_Erich Friedman的更多术语_

%E由Patrick De Geest_于1999年6月15日从第8学期开始更正