login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A318559 Number of combinatory separations of the multiset of prime factors of n. 9

%I #7 Aug 29 2018 16:49:38

%S 1,1,1,2,1,2,1,3,2,2,1,4,1,2,2,5,1,4,1,4,2,2,1,7,2,2,3,4,1,3,1,7,2,2,

%T 2,8,1,2,2,7,1,3,1,4,4,2,1,12,2,4,2,4,1,7,2,7,2,2,1,8,1,2,4,11,2,3,1,

%U 4,2,3,1,15,1,2,4,4,2,3,1,12,5,2,1,8,2,2

%N Number of combinatory separations of the multiset of prime factors of n.

%C A multiset is normal if it spans an initial interval of positive integers. The type of a multiset is the unique normal multiset that has the same sequence of multiplicities when its entries are taken in increasing order. For example the type of 335556 is 112223. A (headless) combinatory separation of a multiset m is a multiset of normal multisets {t_1,...,t_k} such that there exist multisets {s_1,...,s_k} with multiset union m and such that s_i has type t_i for each i = 1...k.

%e The a(60) = 8 combinatory separations of {2,2,3,5}:

%e {1123},

%e {1,112}, {1,123}, {11,12}, {12,12},

%e {1,1,11}, {1,1,12},

%e {1,1,1,1}.

%t sps[{}]:={{}};sps[set:{i_,___}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,___}];

%t mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];

%t primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];

%t normize[m_]:=m/.Rule@@@Table[{Union[m][[i]],i},{i,Length[Union[m]]}];

%t Table[Length[Union[Sort/@Map[normize,mps[primeMS[n]],{2}]]],{n,100}]

%Y Cf. A007716, A056239, A112798, A255906, A265947, A269134, A317533, A317791.

%Y Cf. A318393, A318396, A318560, A318562, A318565, A318566, A318567.

%K nonn

%O 1,4

%A _Gus Wiseman_, Aug 28 2018

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 11:59 EDT 2024. Contains 371254 sequences. (Running on oeis4.)