|
|
|
|
0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 3, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 2, 4, 2, 2, 2, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,5
|
|
评论
|
第n行由术语k组成,如下所示A025487号(n) =一元数p_k#的乘积,第n行中的k从最小到最大写入k。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
三角形以最右边的列开始,其中列出了第n行中出现的术语。每行的最大值由以下公式给出A061394号(n) ●●●●。
--------------------------------
1 1 0
2 2 1
3 4 1,1
4 6 2
5 8 1,1,1
6 12 1、2
7 16 1,1,1,1
8 24 1,1,2
9 30 3
10 32 1,1,1,1,1
11 36 2,2
12 48 1,1,1,2
13 60 1,3
14 64 1,1,1,1,1,1
15 72 1,2,2
16 96 1,1,1,1,2
17 120 1,1,3
18 128 1,1,1,1,1,1,1
19 144 1,1,2,2
20 180 2,3
...
|
|
数学
|
{{0}}~Join~Map[With[{w=#},Reverse@Array[Function[k,Count[w,_?(#>=k&)]],Max@w]]&,Select[Array[{#,FactorInteger[#][[All,-1]}&,400],Times@@Boole@{#1=Times@@MapIndexed[Prime[First@#2]^#1&,#3],#2=#3}=1&@@{#1,#2,Sort[#2,Greater]}&@@#&[[全部,-1]]]
f[n_]:=块[{ww,g,h},
g[x_]:=应用[次数,
映射索引[Prime[First@#2]^#1&,x]];
h[x_]:=反向@
数组[Function[k,Count[x,_?(#>=k&)]],Max@x];
ww=嵌套列表[Append[#,1]&,{1},#-1]&[-2+
长度@NestWhileList[NextPrime@#&,1,
时间@@{##}<=n&,全部]];
地图[h,SortBy[Flatten[#,1],g]]&@
地图[块[{w=#,k=1},
应用[
连接,{{ConstantArray[1,Length@w]},
如果[Length@#==0,#,#[[1]]]}]&@收割[
做[
如果[#<n,
母猪[w];k=1,
如果[k>=长度@w,断开[],k++]]&@
g@设置[w,
如果[k==1,
地图位置[#+1&,w,k],
PadLeft[#,Length@w,First@#]&@
拖放[MapAt[#+Boole[i>1]&,w,k],
k-1]],{i,无限}]][[-1]]&,ww]];{{0}}~加入~f@400
|
|
交叉参考
|
|
|
关键词
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|