%I#4 2019年11月16日20:04:28
%S 1,1,1,1,1,1,2,1,1,1,2,1,1,2,1,1,1,2,2,1,1,1,2,2,1,4,1,1,2,2,1,1,1,3,2,2,
%温度2,1,1,2,3,1,2,2,3,1,1,5,1,1,2,1,1,1,1,2,1,1,3,2,1,5,1,3,2,1,1,2,2,
%U 1,1,5,1,1,3,2,2,1,5,2,1,1,1,1,4,2,2,3
%N具有整数平均值的N的严格因子分解数。
%e n=2,8,24,48,96的a(n)因子分解:
%e(2)(8)(24)(32)(48)(96)
%e(2*4)(4*6)(4x8)(6*8)(2*48)
%e(2*12)(2*16)(2*24)(4*24)
%e(2*3*4)(4*12)(6*16)
%e(2*4*6)(8*12)
%e(3*4*8)
%e(2*3*16)
%e(2*4*12)
%t facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
%t表[Length[Select[facs[n],UnnameQ@@#&&IntegerQ[Mean[#]]&]],{n,2100}]
%Y非严格版本为A326622。
%具有整数平均值的Y分区为A067538。
%Y整数平均值的严格分区为A102627。
%整数平均值分区的Y Heinz数为A316413。
%具有整数几何平均值的Y因子分解为A326028。
%Y参见A001055、A051293、A078174、A078175、A326515、A326567/A326568、A326619/A326620、A326621、A326655。
%K nonn公司
%氧2,7
%A _Gus Wiseman_,2019年11月16日