LINKS
Seiichi Manyama, <a href="/A289486/b289486_2.txt">Table of n, a(n) for n = 0..500</a>
Seiichi Manyama, <a href="/A289486/b289486_2.txt">Table of n, a(n) for n = 0..500</a>
proposed
approved
editing
proposed
Seiichi Manyama, <a href="/A289486/b289486_2.txt">Table of n, a(n) for n = 0..500</a>
approved
editing
editing
approved
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
add(b(n-i*j, i-1)*j!, j=0..min(4, n/i))))
end:
a:= n-> b(n$2):
seq(a(n), n=0..50); # Alois P. Heinz, Oct 04 2017
proposed
editing
editing
proposed
G.f.: Product_{m>0} (1 + x^m + 2!*x^(2*m) + 3!*x^(3*m) + 4!*x^(4*m)).
proposed
editing
editing
proposed
Column k=4 of A293202.