Alois P. Heinz, <a href="/A219555/b219555_3.txt">Table of n, a(n) for n = 0..8000</a> (terms n=101..1000 from Vaclav Kotesovec)
Alois P. Heinz, <a href="/A219555/b219555_3.txt">Table of n, a(n) for n = 0..8000</a> (terms n=101..1000 from Vaclav Kotesovec)
editing
approved
Alois P. Heinz and Vaclav Kotesovec, , <a href="/A219555/b219555_3.txt">Table of n, a(n) for n = 0..10008000</a> (first 100 terms n=101..1000 from Alois P. HeinzVaclav Kotesovec)
b(n-i*j, min(n-i*j, i-1), k)*binomial(i+1, j), j=0..n/i)))
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0, add(
`if` b(n-i*j, min(n-i*j, i<-1, 0, add(binomial(), k)*binomial(i+1, ij), j=0..n/i)))*
b(n-i*j, min(n-i*j, i-1), k), j=0..n/i)))
b:= proc(n, i) option remember; `if`(n=0, 1,
`if`(i<1, 0, add(binomial(binomial(i+1, i), j)*
b(n-i*j, min(n-i*j, i-1), k), j=0..n/i)))
end:
a:= n-> b(n$2):
seq(a(n), n=0..42); # Alois P. Heinz, Sep 19 2019
approved
editing
proposed
approved
editing
proposed
G.f.: exp(Sum_{k>=1} (-1)^(k+1)*x^k*(2 - x^k)/(k*(1 - x^k)^2)). - Ilya Gutkovskiy, Aug 11 2018
approved
editing
Alois P. Heinz and Vaclav Kotesovec, <a href="/A219555/b219555_2.txt">Table of n, a(n) for n = 0..1000</a> (first 100 terms from Alois P. Heinz)