cp's OEIS Frontend

A194621 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) is the number of partitions of n in which any two parts differ by at most k.

%I A194621 #24 Sep 07 2018 14:53:28
%S A194621 1,1,1,2,2,2,2,3,3,3,3,4,5,5,5,2,5,6,7,7,7,4,6,9,10,11,11,11,2,7,10,
%T A194621 13,14,15,15,15,4,8,14,17,20,21,22,22,22,3,9,15,22,25,28,29,30,30,30,
%U A194621 4,10,20,27,34,37,40,41,42,42,42,2,11,21,33,41,48,51,54,55,56,56,56
%N A194621 Triangle T(n,k), n>=0, 0<=k<=n, read by rows: T(n,k) is the number of partitions of n in which any two parts differ by at most k.
%C A194621 T(n,k) = A000041(n) for n >= 0 and k >= n.
%H A194621 Alois P. Heinz, <a href="/A194621/b194621.txt">Rows n = 0..140, flattened</a>
%F A194621 G.f. of column k: 1 + Sum_{j>0} x^j / Product_{i=0..k} (1-x^(i+j)).
%e A194621 T(6,0) = 4: [6], [3,3], [2,2,2], [1,1,1,1,1,1].
%e A194621 T(6,1) = 6: [6], [3,3], [2,1,1,1,1], [2,2,1,1], [2,2,2], [1,1,1,1,1,1].
%e A194621 T(6,2) = 9: [6], [4,2], [3,1,1,1], [3,2,1], [3,3], [2,1,1,1,1], [2,2,1,1], [2,2,2], [1,1,1,1,1,1].
%e A194621 Triangle begins:
%e A194621   1;
%e A194621   1, 1;
%e A194621   2, 2,  2;
%e A194621   2, 3,  3,  3;
%e A194621   3, 4,  5,  5,  5;
%e A194621   2, 5,  6,  7,  7,  7;
%e A194621   4, 6,  9, 10, 11, 11, 11;
%e A194621   2, 7, 10, 13, 14, 15, 15, 15;
%p A194621 b:= proc(n, i, k) option remember;
%p A194621       if n<0 or k<0 then 0
%p A194621     elif n=0 then 1
%p A194621     elif i<1 then 0
%p A194621     else b(n, i-1, k-1) +b(n-i, i, k)
%p A194621       fi
%p A194621     end:
%p A194621 T:= (n, k)-> `if`(n=0, 1, 0) +add(b(n-i, i, k), i=1..n):
%p A194621 seq(seq(T(n, k), k=0..n), n=0..20);
%t A194621 b[n_, i_, k_] := b[n, i, k] = If[n < 0 || k < 0, 0, If[n == 0, 1, If[i < 1, 0, b[n, i-1, k-1] + b[n-i, i, k]]]]; t[n_, k_] := If[n == 0, 1, 0] + Sum[b[n-i, i, k], {i, 1, n}]; Table[Table[t[n, k], {k, 0, n}], {n, 0, 20}] // Flatten (* _Jean-François Alcover_, Dec 09 2013, translated from Maple *)
%Y A194621 Columns k=0-10 give (for n>0): A000005, A000027, A117142, A117143, A218506, A218507, A218508, A218509, A218510, A218511, A218512.
%Y A194621 Main diagonal gives: A000041.
%K A194621 nonn,tabl
%O A194621 0,4
%A A194621 _Alois P. Heinz_, Aug 30 2011