|
%I #11 Oct 04 2017 09:50:37
%S 1,1,3,8,30,133,48,181,262,530,738,1750,1939,5672,6704,20065,11306,
%T 20362,36780,53926,77234,116988,146955,219604,353518,479638,643753,
%U 1156116,1393784,1778612,3767018,3224712,4227504,6058692,9406426,13136745,15425494,19723654
%N G.f.: Product_{m>0} (1 + x^m + 2!*x^(2*m) + 3!*x^(3*m) + 4!*x^(4*m) + 5!*x^(5*m)).
%H Seiichi Manyama, <a href="/A293250/b293250.txt">Table of n, a(n) for n = 0..500</a>
%p b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
%p add(b(n-i*j, i-1)*j!, j=0..min(5, n/i))))
%p end:
%p a:= n-> b(n$2):
%p seq(a(n), n=0..50); # _Alois P. Heinz_, Oct 04 2017
%Y Column k=5 of A293202.
%K nonn
%O 0,3
%A _Seiichi Manyama_, Oct 03 2017
|
