cp's OEIS Frontend

A327518 Number of factorizations of A302696(n), the n-th number that is 1, 2, or a nonprime number with pairwise coprime prime indices, into factors > 1 satisfying the same conditions.

%I A327518 #4 Sep 20 2019 08:58:23
%S A327518 1,1,2,1,3,1,2,1,1,5,2,1,4,1,2,2,7,1,1,1,1,4,2,1,7,1,2,1,4,1,5,1,11,2,
%T A327518 2,1,2,1,2,1,7,1,1,1,4,2,1,1,1,12,2,4,1,2,7,2,1,1,10,1,1,2,15,5,1,4,2,
%U A327518 5,1,1,1,1,1,2,4,2,1,1,12,1,2,1,1,2,2
%N A327518 Number of factorizations of A302696(n), the n-th number that is 1, 2, or a nonprime number with pairwise coprime prime indices, into factors > 1 satisfying the same conditions.
%H A327518 Gus Wiseman, <a href="https://docs.google.com/document/d/e/2PACX-1vSX9dPMGJhxB8rOknCGvOs6PiyhupdWNpqLsnphdgU6MEVqFBnWugAXidDhwHeKqZe_YnUqYeGOXsOk/pub">Sequences counting and encoding certain classes of multisets</a>
%e A327518 The a(59) = 10 factorizations of 120 using the allowed factors, together with the corresponding multiset partitions of {1,1,1,2,3}:
%e A327518   (2*2*2*15)  {{1},{1},{1},{2,3}}
%e A327518   (2*2*30)    {{1},{1},{1,2,3}}
%e A327518   (2*4*15)    {{1},{1,1},{2,3}}
%e A327518   (2*6*10)    {{1},{1,2},{1,3}}
%e A327518   (2*60)      {{1},{1,1,2,3}}
%e A327518   (4*30)      {{1,1},{1,2,3}}
%e A327518   (6*20)      {{1,2},{1,1,3}}
%e A327518   (8*15)      {{1,1,1},{2,3}}
%e A327518   (10*12)     {{1,3},{1,1,2}}
%e A327518   (120)       {{1,1,1,2,3}}
%t A327518 nn=100;
%t A327518 facsusing[s_,n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facsusing[Select[s,Divisible[n/d,#]&],n/d],Min@@#>=d&]],{d,Select[s,Divisible[n,#]&]}]];
%t A327518 y=Select[Range[nn],#==1||CoprimeQ@@primeMS[#]&];
%t A327518 Table[Length[facsusing[Rest[y],n]],{n,y}]
%Y A327518 See link for additional cross-references.
%Y A327518 Cf. A001055, A056239, A112798, A302569, A302696, A304711, A305079, A327392.
%K A327518 nonn
%O A327518 1,3
%A A327518 _Gus Wiseman_, Sep 19 2019