cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A319794 Number of ways to split a strict integer partition of n into consecutive subsequences with weakly decreasing sums.

This page as a plain text file.
%I A319794 #11 Sep 29 2018 12:57:36
%S A319794 1,1,1,3,3,5,9,11,15,20,31,37,52,64,85,111,141,175,225,279,346,437,
%T A319794 532,654,802,979,1182,1438,1740,2083,2502,2996,3565,4245,5043,5950,
%U A319794 7068,8303,9772,11449,13452,15681,18355,21338,24855,28846,33509,38687,44819,51644
%N A319794 Number of ways to split a strict integer partition of n into consecutive subsequences with weakly decreasing sums.
%e A319794 The a(6) = 9 split partitions:
%e A319794     (6)
%e A319794    (51)  (5)(1)
%e A319794    (42)  (4)(2)
%e A319794   (321)  (32)(1)  (3)(21)  (3)(2)(1).
%t A319794 comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
%t A319794 Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,GreaterEqual]&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]
%Y A319794 Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A318684.
%K A319794 nonn
%O A319794 0,4
%A A319794 _Gus Wiseman_, Sep 29 2018