%I #6 Jul 18 2018 17:50:59
%S 1,1,1,2,1,1,1,3,2,1,1,4,1,1,1,5,1,4,1,4,1,1,1,7,2,1,3,4,1,1,1,7,1,1,
%T 1,7,1,1,1,7,1,1,1,4,4,1,1,12,2,4,1,4,1,7,1,7,1,1,1,7,1,1,4,11,1,1,1,
%U 4,1,1,1,16,1,1,4,4,1,1,1,12,5,1,1,7,1,1
%N Number of factorizations of n into factors > 1 with no equivalent primes.
%C In a factorization, two primes are equivalent if each factor has in its prime factorization the same multiplicity of both primes.
%F a(prime^n) = A000041(n).
%F a(squarefree) = 1.
%e The a(36) = 7 factorizations are (2*2*3*3), (2*2*9), (2*3*6), (3*3*4), (2*18), (3*12), (4*9). Missing from this list are (6*6) and (36).
%t primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
%t facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
%t dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}];
%t Table[Length[Select[facs[n],UnsameQ@@dual[primeMS/@#]&]],{n,100}]
%Y Cf. A001055, A007716, A007717, A020555, A045778, A162247, A281116, A303386.
%Y Cf. A316974, A316979, A316980, A316981.
%K nonn
%O 1,4
%A _Gus Wiseman_, Jul 18 2018