|
| |
|
| A022481号 |
| 从右边描述上一个术语（方法B-初始术语为1）。 |
|
11
|
|
|
|
1, 11, 12, 2111, 1321, 11213111, 1331112112, 211221133211, 12213212221221, 11221123112131112211, 122213311121123121122212, 211123122111312112211332112311
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
方法B=“数字”-指示后接“频率”。
|
|
|
链接
|
|
|
|
例子
|
例如，1321年之后的术语是通过“1一次，2一次，3一次，1一次”获得的，即11213111。
|
|
|
数学
|
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
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
