A332280 - OEIS

%I #18 May 10 2021 03:57:08

%S 1,1,2,3,5,7,11,15,22,30,41,55,75,97,129,166,215,273,352,439,557,692,

%T 865,1066,1325,1614,1986,2413,2940,3546,4302,5152,6207,7409,8862,

%U 10523,12545,14814,17562,20690,24397,28615,33645,39297,46009,53609,62504,72581,84412

%N Number of integer partitions of n with unimodal run-lengths.

%C First differs from A000041 at a(10) = 41, A000041(10) = 42.

%C A sequence of positive integers is unimodal if it is the concatenation of a weakly increasing followed by a weakly decreasing sequence.

%H Alois P. Heinz, <a href="/A332280/b332280.txt">Table of n, a(n) for n = 0..1000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UnimodalSequence.html">Unimodal Sequence</a>

%e The a(10) = 41 partitions (A = 10) are:

%e   (A)     (61111)   (4321)     (3211111)

%e   (91)    (55)      (43111)    (31111111)

%e   (82)    (541)     (4222)     (22222)

%e   (811)   (532)     (42211)    (222211)

%e   (73)    (5311)    (421111)   (2221111)

%e   (721)   (5221)    (4111111)  (22111111)

%e   (7111)  (52111)   (3331)     (211111111)

%e   (64)    (511111)  (3322)     (1111111111)

%e   (631)   (442)     (331111)

%e   (622)   (4411)    (32221)

%e   (6211)  (433)     (322111)

%e Missing from this list is only (33211).

%p b:= proc(n, i, m, t) option remember; `if`(n=0, 1,

%p      `if`(i<1, 0, add(b(n-i*j, i-1, j, t and j>=m),

%p       j=1..min(`if`(t, [][], m), n/i))+b(n, i-1, m, t)))

%p     end:

%p a:= n-> b(n$2, 0, true):

%p seq(a(n), n=0..65);  # _Alois P. Heinz_, Feb 20 2020

%t unimodQ[q_]:=Or[Length[q]<=1,If[q[[1]]<=q[[2]],unimodQ[Rest[q]],OrderedQ[Reverse[q]]]]

%t Table[Length[Select[IntegerPartitions[n],unimodQ[Length/@Split[#]]&]],{n,0,30}]

%t (* Second program: *)

%t b[n_, i_, m_, t_] := b[n, i, m, t] = If[n == 0, 1, If[i < 1, 0, Sum[b[n - i*j, i - 1, j, t && j >= m], {j, 1, Min[If[t, Infinity, m], n/i]}] + b[n, i - 1, m, t]]];

%t a[n_] := b[n, n, 0, True];

%t a /@ Range[0, 65] (* _Jean-François Alcover_, May 10 2021, after _Alois P. Heinz_ *)

%Y The complement is counted by A332281.

%Y Heinz numbers of these partitions are the complement of A332282.

%Y Taking 0-appended first-differences instead of run-lengths gives A332283.

%Y The normal case is A332577.

%Y The opposite version is A332638.

%Y Unimodal compositions are A001523.

%Y Unimodal normal sequences are A007052.

%Y Numbers whose unsorted prime signature is unimodal are A332288.

%Y Cf. A007052, A025065, A072706, A100883, A115981, A227038, A317086, A328509, A329398, A332284, A332285, A332294, A332578, A332579.

%K nonn

%O 0,3

%A _Gus Wiseman_, Feb 18 2020