editing
approved
editing
approved
b:= proc(n, l, d) option remember; `if`(n=0, 1, add(`if`(l=0 or
j-l<d, b(n-j, j, `if`(l=0, infinity, j-l)), 0), j=1..n))
end:
a:= n-> b(n, 0$2):
seq(a(n), n=0..52); # Alois P. Heinz, Jan 27 2024
approved
editing
Alois P. Heinz, <a href="/A325548/b325548_1.txt">Table of n, a(n) for n = 0..400</a>
editing
approved
Alois P. Heinz, <a href="/A325548/b325548_1.txt">Table of n, a(n) for n = 0..400</a>
nonn,more,changed
a(45)-a(52) from Alois P. Heinz, Jan 27 2024
1, 1, 2, 3, 5, 8, 10, 13, 19, 23, 29, 38, 46, 55, 69, 80, 96, 115, 132, 154, 183, 207, 238, 276, 314, 356, 405, 455, 513, 579, 647, 724, 809, 897, 998, 1107, 1225, 1350, 1486, 1639, 1805, 1973, 2166, 2374, 2586, 2824, 3084, 3346, 3646, 3964, 4286, 4655, 5047
proposed
approved
editing
proposed