%I #8 Nov 18 2018 14:47:32
%S 1,1,1,2,1,1,1,2,2,1,1,1,1,1,1,6,1,1,1,1,1,1,1,1,2,1,2,1,1,1,1,2,1,1,
%T 1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,14,1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,1,6,1,1,1,1,1,1
%N Number of same-tree-factorizations of n.
%C A constant factorization of n is a finite nonempty constant multiset of positive integers greater than 1 with product n. Constant factorizations correspond to perfect divisors (A089723). A same-tree-factorization of n is either (case 1) the number n itself or (case 2) a finite sequence of two or more same-tree-factorizations, one of each factor in a constant factorization of n.
%C a(n) depends only on the prime signature of n. - _Andrew Howroyd_, Nov 18 2018
%H Andrew Howroyd, <a href="/A316789/b316789.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 1 + Sum_{n = x^y, y > 1} a(x)^y.
%F a(2^n) = A281145(n).
%e The a(64) = 14 same-tree-factorizations:
%e 64
%e (8*8)
%e (4*4*4)
%e (8*(2*2*2))
%e ((2*2*2)*8)
%e (4*4*(2*2))
%e (4*(2*2)*4)
%e ((2*2)*4*4)
%e (2*2*2*2*2*2)
%e (4*(2*2)*(2*2))
%e ((2*2)*4*(2*2))
%e ((2*2)*(2*2)*4)
%e ((2*2*2)*(2*2*2))
%e ((2*2)*(2*2)*(2*2))
%t a[n_]:=1+Sum[a[n^(1/d)]^d,{d,Rest[Divisors[GCD@@FactorInteger[n][[All,2]]]]}]
%t Array[a,100]
%o (PARI) a(n)={my(z, e=ispower(n,,&z)); 1 + if(e, sumdiv(e, d, if(d>1, a(z^(e/d))^d)))} \\ _Andrew Howroyd_, Nov 18 2018
%Y Cf. A001055, A001597, A001678, A003238, A007916, A052409, A052410, A067824, A089723, A281118, A281145, A294336, A316790.
%K nonn
%O 1,4
%A _Gus Wiseman_, Jul 14 2018