%I#21 2017年7月7日17:24:51

%S 1,11211111113211121311111311121122113321111212212221221，

%电话：11221123112131112111221331112112312122212，

%电话：2111231221113121122133211231

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

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

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

%例如，1321年之后的术语是通过“1一次，2一次，3一次，1一次”获得的，即11213111。

%t A022481[1]：=1；A022481[n_]：=A022481[n]=FromDigits[Flatten[{First[#]，Length[#]}和/@Split[Reverse[IntegerDigits[0022481[n-1]]]]]；地图[A022481，范围[15]]（*_Peter J.C.Moses_，2013年4月22日*）

%ta[1]=1；a[n_]：=a[n]=FromDigits[Flatten[Replace[Replace[Split[Reverse[IntegerDigits[a[n-1]]]，{x，y}->{x，长度[{x，y}]}，{1}]，{x，y，z}->{x，长度[{x，y，z}]}，{1}]，{x}->{x，长度[{x}]}，{1}]]；阵列[a，15]（*_Ivan N.Ianakiev_1017年6月22日*）

%t嵌套列表[FromDigits@Flatten@Reverse@Map[{First@#，Length@#}&，Split@IntegerDigits#]&，1，11]（*_Michael De Vlieger_，2017年6月26日*）

%o（哈斯克尔）

%o导入数据。列表（组，转置）

%o a022481 n=a022481_列表！！（n-1）

%o a022481_list=1:f[1]：：[整数]，其中

%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参见A022488、A022514、A022515、A022516、A022517、A022518、A022519、A022520。

%K nonn，基础，简单，好

%O 1,2号机组

%百灵鸟金伯利_