STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
MathWorld, Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UnimodalSequence.html">Unimodal Sequence</a>
proposed
editing
editing
proposed
(* Second program: *)
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]]];
a[n_] := b[n, n, 0, True];
a /@ Range[0, 65] (* Jean-François Alcover, May 10 2021, after Alois P. Heinz *)
approved
editing
editing
approved
Alois P. Heinz, <a href="/A332280/b332280.txt">Table of n, a(n) for n = 0..1000</a>
approved
editing
reviewed
approved
proposed
reviewed