%I#24 2021年2月21日10:08:02

%S 2,21112111211221122112211221221112211231221121121221121122121，

%电话：2111231221113112221211123113212131211312111211321，

%电话：1121311221113112213112312113121132111211212111131113121123123113221231112112

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

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

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

%例如，1121之后的术语是通过说“1一次，2一次，1两次”获得的，这表示112112。

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

%o（哈斯克尔）

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

%o a022488 n=a022488_列表！！（n-1）

%o a022488_list=2:f[2]：：[Integer]其中

%o f xs=（读取$concatMap show ys）：f ys其中

%o ys=concat$transpose[映射头zss，映射长度zss]

%o zss=反向$group xs

%o——Reinhard Zumkeller，2014年4月14日

%o（Python）

%o来自重新导入拆分

%o A022488_列表，l=[2]，'2'

%o表示_在范围（10）内：

%o。。。。l=“”。如果d！=“”，则split（“（0+|1+|2+|3+|4+|5+|6+|7+|8+|9+）”中的d的join（d[0]+str（len（d））

%o。。。。A022488_list.append（int（l））#_Chai Wah Wu_，2015年1月7日

%o（Python）

%o从itertools导入累加、分组、重复

%o定义摘要（n，_）：

%o对于groupby（str（n）[：：-1]）中的k和g，返回int（“”.join（k+str（len（list（g）））

%o def aupton（nn）：返回列表（累加（重复（2，nn），汇总））

%o打印（aupton（12））#_Michael S.Branicky_，2021年2月21日

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

%K nonn，基础，简单，好

%O 1,1号机组

%百灵鸟金伯利_