搜索: 编号:a063008
|
|
A063008号
|
| 标准分区序列(请参见A080577号)通过素分解编码。p1>=p2>=p3>=…的分区[p1,p2,p3,…]。。。编码为2^p1*3^p2*5^p3*。 |
|
+0 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]=If[n==0||i==1,{Table[1,{n}]},Join[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日
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|