OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A371164型 矩形数组,由反对角线读取:行k显示其素数分解p(1)^e(1)*p(2)^e(2)*…*的所有数字p(k)^e(k)在i=1..k时e(i)>0。 0
2, 4, 6, 8, 12, 30, 16, 18, 60, 210, 32, 24, 90, 420, 2310, 64, 36, 120, 630, 4620, 30030, 128, 48, 150, 840, 6930, 60060, 510510, 256, 54, 180, 1050, 9240, 90090, 1021020, 9699690, 512, 72, 240, 1260, 11550, 120120, 1531530, 19399380, 223092870, 1024, 96 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
例子
转角:
2 4 8 16 32 64
6 12 18 24 36 48
30 60 90 120 150 180
210 420 630 840 1050 1260
2310 4620 6930 9240 11550 13860
30030 60060 90090 120120 150150 180180
90=2^1*3^2*5^1,所以90在第3行。
数学
行=10;t=(表[n=120000/Exp[row]应用[Times,表[Prime[k],{k,row}]];
eq=表[素数[i]^k[i],{i,行}];
排序[Flatten[Table[Apply[Times,eq],##]&@@Table[{k[i],
Log[Prime[i],n/Apply[Times,Take[eq,i-1]]},{i,row}]],{row,rows}]);
表[t[[n]][[k]],{n,1,行},{k,1,行}]//TableForm(*array*)
w[n,k_]:=t[[n]][[k]];
表[w[n-k+1,k],{n,行},{k,n,1,-1}]//展平(*sequence*)
(*彼得·J·C·摩西2024年3月23日*)
交叉参考
囊性纤维变性。A000040美元,A055932号(所有行的并集,前面加1)。
关键词
非n,
作者
克拉克·金伯利2024年3月26日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月3日23:31。包含373088个序列。(在oeis4上运行。)