搜索： a022515-编号：a022515
|
| |
| |
|
|
|
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$transpose[映射头zss，映射长度zss]
zss=反转$group xs
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
2, 21, 1121, 112112, 21122112, 2112221221, 112211231221, 1122113121122212, 21112312211131122212, 211123123113221131211321, 112131122111311222311231211131211321, 112131122111311321113121123123123113221231112112
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
方法B=“数字”-指示后接“频率”。
|
|
|
链接
|
|
|
|
例子
|
例如，1121之后的术语是通过说“1一次，2一次，1两次”得到的，即112112。
|
|
|
数学
|
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（组，转置）
a022488 n=a022488_列表！！（n-1）
a022488_list=2:f[2]：：[整数]其中
f xs=（读取$concatMap show ys）：f ys其中
ys=concat$转置[map head zss，map length zss]
zss=反转$group xs
（Python）
从重新导入拆分
对于范围（10）内的_：
….l=“”。如果d！=“”，则split（“（0+|1+|2+|3+|4+|5+|6+|7+|8+|9+）”中d的join（d[0]+str（len（d））
（Python）
从itertools导入累加、分组、重复
定义摘要（n，_）：
对于groupby（str（n）[：：-1]）中的k和g，返回int（“”.join（k+str（len（list（g）））
定义aupton（nn）：返回列表（累加（重复（2，nn），汇总））
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
3, 31, 1131, 113112, 21123112, 211231211221, 112212211131211221, 1122122111311322112212, 21112212223112311322112212, 21112212223112312112312311221321
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,1
|
|
|
评论
|
方法B=“数字”-指示后接“频率”。
|
|
|
链接
|
|
|
|
例子
|
1131之后的术语通过“1一次，3一次，1两次”获得，即113112。
|
|
|
数学
|
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（组，转置）
a022514 n=a022514_列表！！n个
a022514_list=3:f[3]：：[Integer]其中
f xs=（读取$concatMap show ys）：f ys其中
ys=concat$转置[map head zss，map length zss]
zss=反转$group xs
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
7, 71, 1171, 117112, 21127112, 211271211221, 112212211171211221, 1122122111711322112212, 21112212223112711322112212, 21112212223112712112312311221321
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,1
|
|
|
评论
|
方法B=“数字”-指示后接“频率”。
|
|
|
链接
|
|
|
|
例子
|
1171之后的术语是通过“1一次，7一次，1两次”得到的，即117112。
|
|
|
数学
|
split[n_]：=拆分[Reverse[Integer Digits[n]]]；
list1[n_]：=列表/@长度/@拆分[n]；riffle1[n]：=Riffle[拆分[n]，列表1[n]]；
tab[n_]：=表[i，{i，1，2*长度[list1[n]]，2}]；
list2[n_]：=附加[riffle1[n][[#]]，riffle1\n][#+1]]&/@tab[n]；
扁平[n_]：=扁平/@list2[n]；riffle2[n_]：=Riffle[第一个/@flat[n]，最后一个/@float[n]]；
a[1]=7；a[n_]：=起始数字[riffle2[a[n-1]]；数组[a，10]（*或*）
a[1]=7；a[n_]：=FromDigits[Flatten[Replace[Replace[Split[Reverse[IntegerDigits[
a[n-1]]]，{x_，y}->{x，长度[{x，y}]}，{1}]，{x}->{x，长度[{x}]}，{1}]]；数组[a，10](*伊万·伊纳基耶夫2016年10月7日*）
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（组，转置）
a022518 n=a022518_列表！！n个
a022518_list=7:f[7]：：[Integer]其中
f xs=（读取$concatMap show ys）：f ys其中
ys=concat$转置[map head zss，map length zss]
zss=反转$group xs
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,容易的,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.009秒内完成
|
