|
| |
| |
|
|
|
1, 2, 4, 8, 12, 16, 24, 32, 48, 64, 96, 128, 144, 192, 256, 288, 384, 512, 576, 768, 1024, 1152, 1536, 1728, 2048, 2304, 3072, 3456, 4096, 4608, 6144, 6912, 8192, 9216, 12288, 13824, 16384, 18432, 20736, 24576, 27648, 32768, 34560, 36864, 41472, 49152, 55296
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
第一个不同于A317804型有34560个，这是第一个有两个以上不同质数因子的项。
|
|
|
链接
|
|
|
|
例子
|
术语序列及其素数开始于：
1: {}
2: {1}
4: {1,1}
8: {1,1,1}
12: {1,1,2}
16: {1,1,1,1}
24：{1,1,1,2}
32: {1,1,1,1,1}
48: {1,1,1,1,2}
64: {1,1,1,1,1,1}
96: {1,1,1,1,1,2}
128: {1,1,1,1,1,1,1}
144: {1,1,1,1,2,2}
192: {1,1,1,1,1,1,2}
256: {1,1,1,1,1,1,1,1}
288: {1,1,1,1,1,2,2}
384: {1,1,1,1,1,1,1,2}
512: {1,1,1,1,1,1,1,1,1}
|
|
|
数学
|
supfac[n_]：=乘积[k！，{k，n}]；
facsusing[s_，n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[facsusing[Select[s，Divisible[n/d，#]&]，n/d]，Min@@#>=d&]]，{d，Select[s，Diviible[n，#]&]}]]；
选择[Range[1000]，facsusing[Rest[Array[supfac，30]]，#]={}&]
|
|
|
交叉参考
|
囊性纤维变性。A000142号,A000720号,A007489号,A011371号,A022559美元,A022915号,A027423号,A034878号,A034876号,A076954号,A115627号,A294068号.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
