|
%I #5 Sep 02 2018 17:08:20
%S 1,0,0,0,0,1,0,0,0,1,0,1,0,1,1,0,0,1,0,1,1,1,0,2,0,1,0,1,0,4,0,0,1,1,
%T 1,2,0,1,1,2,0,4,0,1,1,1,0,2,0,1,1,1,0,2,1,2,1,1,0,6,0,1,1,0,1,4,0,1,
%U 1,4,0,4,0,1,1,1,1,4,0,2,0,1,0,6,1,1,1
%N Number of strict relatively prime factorizations of n.
%C a(1) could be either 0 or 1.
%e The a(60) = 6 factorizations are (3*20), (4*15), (5*12), (2*3*10), (2*5*6), (3*4*5).
%t strfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@Select[strfacs[n/d],Min@@#1>d&],{d,Rest[Divisors[n]]}]];
%t Table[Length[Select[strfacs[n],GCD@@#==1&]],{n,50}]
%Y Cf. A001055, A007716, A045778, A078374, A281116, A317748, A318720.
%K nonn
%O 1,24
%A _Gus Wiseman_, Sep 02 2018
|
