A022481-OEIS公司

A022481号

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

1, 11, 12, 2111, 1321, 11213111, 1331112112, 211221133211, 12213212221221, 11221123112131112211, 122213311121123121122212, 211123122111312112211332112311

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

方法B=“数字”-指示后接“频率”。

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..24时的n，a（n）表

例子

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

数学

A022481号[1]:=1;A022481号[编号]：=A022481号[n] =FromDigits[Flatten[{First[#]，Length[#]}和/@Split[Reverse[IntegerDigits[A022481号[n-1]]]]]；地图[A022481号，范围[15]](*彼得·J·C·摩西，2013年4月22日*）

a[1]=1；a[n_]：=a[n]=FromDigits[Flatten[Replace[Replace[Split[Reverse[IntegerDigits[a[n-1]]]，{x_，y_}->{x，Length[{x，y}]}，{1}]，{x_，y_，z_}->{x，Longth[}，y，z}]}]，{x}->{x，长度[{x}]}，{1}]]；数组[a，15](*伊万·伊纳基耶夫2017年6月22日*）

NestList[FromDigits@Flatten@Reverse@Map[{First@#，Length@#}&，Split@IntegerDigits@@]&，1，11](*迈克尔·德弗利格2017年6月26日*）

黄体脂酮素

（哈斯克尔）

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

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

a022481_list=1:f[1]：：[Integer]其中

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

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

zss=反转$group xs

--莱因哈德·祖姆凯勒2014年1月26日

交叉参考