%I#7 2019年7月15日15:41:29
%S 0、1、1、2、1、1、1、1、1、1、1、1、1、1、1、1、1、1、2、1、2、1、1、1、2、1、1、1、,
%T 1,5,1,1,1,1,1,1,1,1,1,1,1,11,1,1,2,1,1,1,1,1,1,1,1-1,1,1,1,1,1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,11,1,1,1
%N将N分解为因子>1且具有整数几何平均值的因子的次数。
%C First与A294336和A316782的a(36)=5不同。
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Geometric_mean“>几何平均值</a>
%F a(2^n)=A067538(n)。
%e a(4)=2到a(36)=5的因式分解(仅显示n是完美幂的情况)。
%e(4)(8)(9)(16)(25)(27)(32)(36)
%e(2x2)(2*2*2)(3*3)(2x8)(5*5)(3x3*3
%e(4*4)(6*6)
%e(2*2*2x2)(2*18)
%e(3*12)
%t facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,选择[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
%t表[Length[Select[facs[n],IntegerQ[Geometric Mean[#]]&]],{n,2100}]
%Y项>1的位置是完美幂A001597。
%具有整数几何平均值的Y分区为A067539。
%具有整数几何平均值的Y子集为A326027。
%具有整数平均值和几何平均值的Y因子分解为A326647。
%Y参考A001055、A082553、A322794、A326514、A32.6515、A326316、A326622、A326633、A326664、A326.625。
%K非n
%O 1,4型
%A _Gus Wiseman_,2019年7月15日
|