cp's OEIS Frontend

A143266 Triangle read by rows: with a(n,m,k) defined in A091969: T(n,m)=a(n, 2^(n - 1), 2^(m - 1)).

%I A143266 #7 Apr 22 2013 02:25:25
%S A143266 1,1,1,0,1,1,0,1,4,4,0,0,4,28,28,0,0,0,76,550,550,0,0,0,0,4465,28456,
%T A143266 28456,0,0,0,0,1,828038,4134861,4134861,0,0,0,0,0,4205,473635054,
%U A143266 1781622569,1781622569
%N A143266 Triangle read by rows: with a(n,m,k) defined in A091969: T(n,m)=a(n, 2^(n - 1), 2^(m - 1)).
%C A143266 Row sums are: 1, 2, 2, 9, 60, 1176, 61377, 9097761, 4036884397 ... .
%F A143266 With a(n,m,k) defined in A091969: T(n,m)=a(n, 2^(n - 1), 2^(m - 1)).
%e A143266 {1},
%e A143266 {1, 1},
%e A143266 {0, 1, 1},
%e A143266 {0, 1, 4, 4},
%e A143266 {0, 0, 4, 28, 28},
%e A143266 {0, 0, 0, 76, 550, 550},
%e A143266 {0, 0, 0, 0, 4465, 28456, 28456},
%e A143266 {0, 0, 0, 0, 1, 828038, 4134861, 4134861},
%e A143266 {0, 0, 0, 0, 0, 4205, 473635054, 1781622569, 1781622569}
%t A143266 Clear[a, l, s, p, n]; a[1, s_, p_] := a[1, s, p] = If[1 <= s <= p, 1, 0]; a[n_, s_, p_] := a[n, s, p] = If[s < 2^(n - 1), 0, Sum[a[n - 1, s - k, Min[p, k]], {k, 1, Min[p, s]}]]; Table[Table[ a[n, 2^(n - 1), 2^(m - 1)], {m, 1, n}], {n, 1, 9}]; Flatten[%]
%Y A143266 Cf. A091969.
%K A143266 nonn,tabl
%O A143266 1,9
%A A143266 _Roger L. Bagula_ and _Gary W. Adamson_, Oct 21 2008
%E A143266 Edited by _Michel Marcus_ and _Joerg Arndt_, Apr 22 2013