|
|
A340689型 |
| 长度为2^k的因子分解为因子>1的数字,其中k是最大因子。 |
|
5
|
|
|
1, 16, 384, 576, 864, 1296, 1944, 2916, 4374, 6561, 131072, 196608, 262144, 294912, 393216, 442368, 524288, 589824, 663552, 786432, 884736, 995328, 1048576, 1179648, 1327104, 1492992, 1572864, 1769472, 1990656, 2097152, 2239488, 2359296, 2654208, 2985984, 3145728
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
初始项和每个项的有效因子分解为:
1 =
16 = 2*2*2*2
384 = 2*2*2*2*2*2*2*3
576 = 2*2*2*2*2*2*3*3
864 = 2*2*2*2*2*3*3*3
1296 = 2*2*2*2*3*3*3*3
1944 = 2*2*2*3*3*3*3*3
2916 = 2*2*3*3*3*3*3*3
4374 = 2*3*3*3*3*3*3*3
6561 = 3*3*3*3*3*3*3*3
131072=2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*4
196608 = 2*2*2*2*2*2*2*2*2*2*2*2*2*2*3*4
262144 = 2*2*2*2*2*2*2*2*2*2*2*2*2*2*4*4
294912 = 2*2*2*2*2*2*2*2*2*2*2*2*2*3*3*4
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
选择[Range[1000],选择[facs[#],Length[#]==2^Max@@#&]={}&]
|
|
交叉参考
|
囊性纤维变性。A106529号,A117409号,A200750型,A325134型,A340386型,A340387型,A340599型,A340607飞机,A340654型,A340655型,A340656型,A340657型.
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
已批准
|
|
|
|