|
| |
|
| A063008号 |
| 标准分区序列（请参见A080577号)通过素分解编码。p1>=p2>=p3>=…的分区[p1，p2，p3，…]。。。编码为2^p1*3^p2*5^p3*。 |
|
35
|
|
|
|
1, 2, 4, 6, 8, 12, 30, 16, 24, 36, 60, 210, 32, 48, 72, 120, 180, 420, 2310, 64, 96, 144, 240, 216, 360, 840, 900, 1260, 4620, 30030, 128, 192, 288, 480, 432, 720, 1680, 1080, 1800, 2520, 9240, 6300, 13860, 60060, 510510, 256, 384, 576, 960, 864, 1440, 3360
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
分区首先按总和排序。然后将n的所有分区视为n个变量上的指数元组，并将其对应的单项式按逆字典序排序。这给出了一个规范排序：[][1][2,0][1,1][3,0,0][2,1,0][1,1,1][4,0,0:0][3,1,0][2,2,0,0][2,1,1,0][1,1,1]。。。重新安排A025487号,A036035型等。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
n=5的分区[2,1,1]得出2^2*3*5*7=420。
序列开始：
1;
2;
4, 6;
8, 12, 30;
16, 24, 36, 60, 210;
32, 48, 72, 120, 180, 420, 2310;
64, 96, 144, 240, 216, 360, 840, 900, 1260, 4620, 30030;
...
|
|
|
MAPLE公司
|
r:=程序（L）局部B，i；B:=空；
i从nops（L）到-1 do
B:=B，L[i]od；[%]结束：
w:=proc（e）局部i，m，p，p；m：=无穷大；
P:=置换（[seq（ithprime（i），i=1..nops（e））]）；
对于p do m中的p：=min（m，mul（p[i]^e[i]，i=1..nops（e））od结束：
[seq（w（e），e=r（分区（n）））]结束：
#第二个Maple项目：
b： =（n，i）->`如果`（n=0或i=1，[[1$n]]，[map（x->
[i，x[]]，b（n-i，最小值（n-i、i））[]，b（n，i-1）[]]）：
T： =n->映射（x->mul（ithprime（i）^x[i]，i=1..nops（x）），b（n$2））[]：
|
|
|
数学
|
行[n_]：=乘积[Prime[k]^#[[k]]，{k，1，Length[#]}]&/@IntegerPartitions[n]；表[行[n]，{n，0，8}]//展平(*Jean-François Alcover公司，2012年12月10日*）
b[n_，i_]：=b[n，i]=如果[n==0||i==1，{表[1，{n}]}，连接[Prepend[#，i]&/@b[n-i，Min[n-i、i]]，b[n、i-1]]；
T[n_]：=乘积[素数[i]^#[i]]，{i，1，长度[#]}]&/@b[n，n]；
|
|
|
交叉参考
|
请参见A036036号“Abramowitz and Stegun”（分级反射色谱）排序。
|
|
|
关键词
|
|
|
|
作者
|
Antonio G.Astudillo（afg_Astudillo（AT）hotmail.com），2001年7月2日
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
