|
| |
|
| A037276号 |
| 从1开始；对于n>1，将n替换为其素因子按递增顺序串联。 |
|
35
|
|
|
|
1, 2, 3, 22, 5, 23, 7, 222, 33, 25, 11, 223, 13, 27, 35, 2222, 17, 233, 19, 225, 37, 211, 23, 2223, 55, 213, 333, 227, 29, 235, 31, 22222, 311, 217, 57, 2233, 37, 219, 313, 2225, 41, 237, 43, 2211, 335, 223, 47, 22223, 77, 255, 317, 2213, 53, 2333
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
N.J.A.Sloane，《来自OEIS的三个可爱问题》，罗格斯大学实验数学研讨会，2017年10月5日，第一部分,第2部分,幻灯片。（提到这个序列）
|
|
|
例子
|
如果n=2^3*5^5*11^2=3025000，a（n）=22255551111（n=2*2*2*5*5*5*5*11*11，则去掉乘号）。
|
|
|
MAPLE公司
|
#这适用于n>1
读取（“转换”）；
局部L，p；
L:=[]；
ifactors（n）[2]中的p do
L:=[op（L），seq（op（1，p），i=1..op（2，p））]；
结束do：
数字L（L）；
|
|
|
数学
|
co[n_，k_]：=嵌套[Flatten[整数位数[{#，n}]]&，n，k-1]；表[FromDigits[Flatten[IntegerDigits[co@@@FactorInteger[n]]]，{n，54}](*贾扬达·巴苏2013年7月4日*）
FromDigits@Flatten@IntegerDigits[表[#1，{#2}]&@@@FactorInteger@#]&/@Range@54(*迈克尔·德弗利格2015年7月14日*）
|
|
|
黄体脂酮素
|
（PARI）a（n）={n<4&返回（n）；对于（i=1，#n=factor（n）~，n[1，i]=concat（向量（n[2，i]，j，Str（n[1]，i]））；eval（concat，n[1]））}\\M.F.哈斯勒2011年6月19日
（哈斯克尔）
a037276=读取。concatMap显示。a027746_低
（Python）
来自sympy导入因子
定义a（n）：
f=因子（n）
l=排序（f）
如果n==1，则返回1 else int（“”.join（str（i）*f[i]代表l中的i））
打印（[a（n）代表范围（1101）中的n）]#因德拉尼尔·戈什，2017年6月23日
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,容易的,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
