|
|
A347709型 |
| 对于某些因子分解x*y*z=n,1<x<=y<=z,形式为x*z/y的不同有理数的个数。 |
|
2
|
|
|
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 2, 0, 0, 1, 1, 0, 1, 0, 2, 0, 0, 0, 2, 0, 0, 0, 2, 0, 1, 0, 1, 1, 0, 0, 3, 0, 1, 0, 1, 0, 1, 0, 2, 0, 0, 0, 4, 0, 0, 1, 2, 0, 1, 0, 1, 0, 1, 0, 4, 0, 0, 1, 1, 0, 1, 0, 3, 1, 0, 0, 4, 0, 0, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,24
|
|
评论
|
这也是n的长度-3因子分解的不同可能交替乘积的数量,其中我们定义序列(y_1,…,y_k)的交替乘积为product_i y_i^((-1)^(i-1)),其中n的因子分解是一个乘积为n的正整数>1的弱递增序列。
|
|
链接
|
|
|
例子
|
a(360)=9个交替产品的代表性因子分解:
(2,2,90) -> 90
(2,3,60) -> 40
(2,4,45) -> 45/2
(2,5,36) -> 72/5
(2,6,30) -> 10
(2,9,20) -> 40/9
(2,10,18) -> 18/5
(2,12,15) -> 5/2
(3,8,15) -> 45/8
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
altprod[q_]:=乘积[q[i]]^(-1)^(i-1),{i,长度[q]}];
表[Length[Union[altprod/@Select[facs[n],Length#]==3&]]],{n,100}]
|
|
交叉参考
|
囊性纤维变性。A000040型,A001358号,A002033号,A046951号,A339846飞机,A339890型,A347437飞机,A347438型,A347439型,A347440型,A347442型,A347456飞机,A347461型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
已批准
|
|
|
|