|
| |
| |
|
|
|
3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
术语序列及其基本指数开始于：
3: {2} 22: {1,5} 39: {2,6}
5: {3} 23: {9} 40: {1,1,1,3}
6: {1,2} 25: {3,3} 41: {13}
7: {4} 26: {1,6} 42: {1,2,4}
9: {2,2} 27: {2,2,2} 43: {14}
10: {1,3} 28: {1,1,4} 44: {1,1,5}
11: {5} 29: {10} 45: {2,2,3}
13: {6} 30: {1,2,3} 46: {1,9}
14: {1,4} 31: {11} 47: {15}
15: {2,3} 33: {2,5} 49: {4,4}
17: {7} 34: {1,7} 50: {1,3,3}
18: {1,2,2} 35: {3,4} 51: {2,7}
19: {8} 36: {1,1,2,2} 52: {1,1,6}
20: {1,1,3} 37: {12} 53: {16}
21: {2,4} 38: {1,8} 54: {1,2,2,2}
|
|
|
数学
|
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[100]，facsusing[Rest[Array[supfac，30]]，#]=={}&]
|
|
|
交叉参考
|
囊性纤维变性。A000142号,A000720号,A007489号,A011371号,A022559号,A022915号,A027423号,A034878号,A034876号,A076954号,A115627号,A294068型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
