搜索： 编号：a330997
|
| |
|
|
A330997型
|
| 包含最小数的排序列表，每个可能的非零因子分解为不同因子>1。 |
|
+0
13
|
|
|
|
1, 6, 12, 24, 48, 60, 64, 96, 120, 144, 180, 210, 216, 240, 256, 288, 360, 384, 420, 432, 480, 512, 720, 840, 864, 900, 960, 1080, 1152, 1260, 1296, 1440, 1536, 1680, 1728, 1800, 2048, 2160, 2304, 2310, 2520, 2592, 2880, 3072, 3360, 3456, 3600, 3840, 4320
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
n=1..9时a（n）的严格因式分解。
{} 6 12 24 48 60 64 96 120
2*3 2*6 3*8 6*8 2*30 2*32 2*48 2*60
3*4 4*6 2*24 3*20 4*16 3*32 3*40
2*12 3*16 4*15 2*4*8 4*24 4*30
2*3*4 4*12 5*12 6*16 5*24
2*3*8 6*10 8*12 6*20
2*4*6 2*5*6 2*6*8 8*15
3*4*5 3*4*8 10*12
2*3*10 2*3*16 3*5*8
2*4*12 4*5*6
2*3*20
2*4*15
2*5*12
2*6*10
3*4*10
2*3*4*5
|
|
|
数学
|
nn=1000；
strfacs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[strfacs[n/d]，Min@@#>d&]]，{d，Rest[Divisors[n]]}]；
nds=长度/@Array[strfacs，nn]；
表[位置[nds，i][[1，1]]，{i，第一个/@Gather[nds]}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
