|
|
|
|
0, 1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, 3, 1, 1, 3, 2, 3, 1, 1, 1, 3, 1, 2, 3, 1, 1, 2, 3, 1, 1, 4, 2, 4, 1, 1, 1, 4, 1, 2, 4, 1, 1, 2, 4, 2, 2, 4, 1, 1, 1, 2, 4, 1, 2, 2, 4, 1, 1, 1, 1, 2, 4, 1, 1, 3, 4, 1, 2, 5, 2, 2, 2, 4, 1, 1, 1, 3, 4, 1, 1, 2, 5, 2, 2, 5, 1, 1, 1, 2, 5, 1, 2, 2, 5, 1, 1, 1, 1, 2, 5
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
评论
|
按照约定,行1={0}。
|
|
链接
|
|
|
例子
|
-----------------------------------------------
1: 0; 1 = 1
2: 1; 2 = 2
3: 1, 1; 2 * 2 = 4
4: 2; 6 = 6
5: 1, 2; 2 * 6 = 12
6: 1, 1, 2; 2 * 2 * 6 = 24
7: 2, 2; 6 * 6 = 36
8: 1, 1, 1, 2; 2*2*2*6=48
9: 1, 3; 2 * 30 = 60
10: 1, 1, 3; 2 * 2 * 30 = 120
11: 2, 3; 6 * 30 = 180
12: 1, 1, 1, 3; 2 * 2 * 2 * 30 = 240
13: 1, 2, 3; 2 * 6 * 30 = 360
14: 1, 1, 2, 3; 2 * 2 * 6 * 30 = 720
15: 1, 1, 4; 2 * 2 * 210 = 840
...
|
|
数学
|
使用[{s=DivisiorSigma[0],Range[250000]]},Map[Reverse@Table[LengthWhile[#,#>=i&],{i,Max@#}]&@If[#=1,{0},Function[f,ReplacePart[Table[0],{PrimePi[f[-1,1]]]}],#]&@Map[PrimePi@First@#->Last@#&,f]]@FactorInteger@#]&@FirstPosition[s,#][1]]&,Union@FoldList[Max,s]]/。{}->{0}]//展平
|
|
交叉参考
|
|
|
关键字
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|