%I#7 2018年5月2日09:24:32
%S 1,1,1,1,2,1,1,1,1,1,2,1,3,1,2,1,1,3,1,3,3,2,2,1,4,1,2,3,1,5,1,1,2,2,
%温度2,5,1,2,2,4,1,5,1,3,3,2,1,5,1,3A,2,3,1,4,2,2,1,9,1,2,3,1,2,5,13,3,
%U 2,5,1,8,1,2,3,3,2,5,15,1,2,1,9,2,2
%N使用A007916元素的N分解数(非完美幂的数)。
%C First与A081707的不同之处在于a(60)=9,A081707=8。
%F Dirichlet g.F.:A007916}1/(1-n^s)中的产品{n。
%e a(60)=9因子分解是(2*2*3*5),(2*2%15),(2%3*10),(2-5*6),(2\*30),(3*20),(5*12),(6*10)和(60)。
%t radQ[n_]:=或[n===1,GCD@@FactorInteger[n][[All,2]]==1];
%t facsr[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facsr[n/d],Min@@#>=d&]],{d,选择[Rest[Divisors[n]],radQ]}]];
%t表格[长度[facsr[n]],{n,100}]
%Y参见A000837、A001055、A001597、A007716、A007916、A045778、A052409、A052410、A162247、A281113、A281116、A303708、A30370、A303710。
%K nonn公司
%O 1,6型
%A _Gus Wiseman_,2018年4月29日
|