登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A372337型 矩形数组,通过降序反对偶读取:第n行显示数字m>1,其中的素因式分解p(1)^e(1)*p(2)^ep(k)^e(k),所有e(i)都<=2,多集{e(i。 0
2, 4, 3, 6, 9, 5, 12, 10, 14, 7, 18, 15, 21, 22, 11, 30, 20, 25, 33, 26, 13, 36, 42, 28, 44, 39, 34, 17, 60, 45, 35, 49, 52, 51, 38, 19, 90, 50, 63, 55, 65, 68, 57, 46, 23, 150, 70, 66, 77, 91, 85, 76, 69, 58, 29, 180, 75, 98, 78, 102, 114, 95, 92, 87, 62 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
例子
28=2^2*3^0*5^0*7^1,所以{e(i)}是{0,0,1,2},所以28在第3行。
转角:
2 4 6 12 18 30 36 60
3 9 10 15 20 42 45 50
5 14 21 25 28 35 63 66
7 22 33 44 49 55 77 78
11 26 39 52 65 91 102 117
13 34 51 68 85 114 119 153
17 38 57 76 95 133 138 171
19 46 69 92 115 161 174 207
23 58 87 116 145 186 203 261
数学
exps:=映射[#[2]]&,排序[Join[#,补码[Map[{Prime[#],0}&,范围[PrimePi[Last[#][[1]]]],映射[{#[1]],0{&,#]]]]&[FactorInteger[#]]]&;
m=映射[Transpose[#][[1]]&,GatherBy[Map[{#[[1]],计数[#[2]],0]}&,
选择[Map[{#,exps[#]}&,Range[2,7000]],Max[#[2]]]<=2&]],#[2]]&]];
z=12;r=表[Take[m[[n]],z],{n,1,z}]
网格[r](*数组*)
w[n,k_]:=r[[n]][[k]]
表[w[n-k+1,k],{n,z},{k,n,1,-1}]//展平(*序列*)
(*彼得·J·C·摩西2024年3月21日*)
交叉参考
囊性纤维变性。A000040型(素数,第1列),A371799飞机.
关键词
非n,表格
作者
克拉克·金伯利2024年4月28日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日09:34。包含373543个序列。(在oeis4上运行。)