The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A326520 Number of normal multiset partitions of weight n where every part has the same average. 8
 1, 1, 3, 7, 17, 35, 103, 197 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 COMMENTS A multiset partition is normal if it covers an initial interval of positive integers. LINKS EXAMPLE The a(0) = 1 through a(4) = 17 normal multiset partitions where every part has the same average:   {}  {{1}}  {{1,1}}    {{1,1,1}}      {{1,1,1,1}}              {{1,2}}    {{1,1,2}}      {{1,1,1,2}}              {{1},{1}}  {{1,2,2}}      {{1,1,2,2}}                         {{1,2,3}}      {{1,1,2,3}}                         {{1},{1,1}}    {{1,2,2,2}}                         {{2},{1,3}}    {{1,2,2,3}}                         {{1},{1},{1}}  {{1,2,3,3}}                                        {{1,2,3,4}}                                        {{1},{1,1,1}}                                        {{1,1},{1,1}}                                        {{1,2},{1,2}}                                        {{1,3},{2,2}}                                        {{1,4},{2,3}}                                        {{2},{1,2,3}}                                        {{1},{1},{1,1}}                                        {{2},{2},{1,3}}                                        {{1},{1},{1},{1}} MATHEMATICA sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}]; mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]]; allnorm[n_]:=If[n<=0, {{}}, Function[s, Array[Count[s, y_/; y<=#]+1&, n]]/@Subsets[Range[n-1]+1]]; Table[Length[Select[Join@@mps/@allnorm[n], SameQ@@Mean/@#&]], {n, 0, 5}] CROSSREFS Cf. A038041, A051293, A255906, A317583, A326512, A326515, A326517, A326518, A326519, A326521, A326536. Sequence in context: A114100 A260677 A014395 * A295146 A014314 A221792 Adjacent sequences:  A326517 A326518 A326519 * A326521 A326522 A326523 KEYWORD nonn,more AUTHOR Gus Wiseman, Jul 12 2019 STATUS approved

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

Last modified February 24 10:11 EST 2020. Contains 332209 sequences. (Running on oeis4.)