%I #42 Jul 27 2016 22:25:41
%S 1,0,1,0,1,1,0,0,2,1,0,0,1,3,1,0,0,1,2,4,1,0,0,0,3,3,5,1,0,0,0,2,5,4,
%T 6,1,0,0,0,1,5,7,5,7,1,0,0,0,1,5,8,9,6,8,1,0,0,0,0,4,10,11,11,7,9,1,0,
%U 0,0,0,3,11,15,14,13,8,10,1,0,0,0,0,2,9,19,20,17,15,9,11,1,0,0,0,0,1,9,20,27,25,20,17,10,12,1,0,0,0,0,1,7,20,32,35,30,23,19,11,13,1
%N Triangle read by rows: T(n,r) = number of arrangements of n pennies in rows, with r contiguous pennies in the bottom row, and each higher row consisting of contiguous pennies, each touching two pennies in the row below (1 <= r <= n).
%C Computed by _R. K. Guy_ (see link).
%H Joerg Arndt, <a href="/A259095/b259095.txt">Table of n, a(n) for n = 1..5050</a> (rows 1..100, flattened)
%H Joerg Arndt, <a href="http://jjj.de/fxt/demo/seq/#A259095">C++ program for this sequence</a>, 2016
%H F. C. Auluck, <a href="http://dx.doi.org/10.1017/S0305004100027134">On some new types of partitions associated with generalized Ferrers graphs</a>, Proc. Cambridge Philos. Soc. 47, (1951), 679-686.
%H F. C. Auluck, <a href="/A001524/a001524.pdf">On some new types of partitions associated with generalized Ferrers graphs</a> (annotated scanned copy)
%H R. K. Guy, <a href="/A259095/a259095.pdf">Letter to N. J. A. Sloane, Apr 08 1988</a> (annotated scanned copy, included with permission)
%F T(n,r) = Sum_{D(n,r)} Product_{k=2..m} abs(p[k]-p[k-1]) where the sum ranges over all partitions of n into distinct parts with maximal part r and the product over the m-1 pairs of successive parts; m is the number of parts in the partition under consideration. [_Joerg Arndt_, Apr 09 2016]
%e Triangle begins:
%e 1,
%e 0,1,
%e 0,1,1,
%e 0,0,2,1,
%e 0,0,1,3,1,
%e 0,0,1,2,4,1,
%e 0,0,0,3,3,5,1,
%e 0,0,0,2,5,4,6,1,
%e 0,0,0,1,5,7,5,7,1,
%e 0,0,0,1,5,8,9,6,8,1,
%e 0,0,0,0,4,10,11,11,7,9,1,
%e 0,0,0,0,3,11,15,14,13,8,10,1,
%e 0,0,0,0,2,9,19,20,17,15,9,11,1,
%e 0,0,0,0,1,9,20,27,25,20,17,10,12,1,
%e 0,0,0,0,1,7,20,32,35,30,23,19,11,13,1,
%e ...
%e (An unusually large number of rows are shown in order to explain the related sequences A005575-A005578.
%p b:= proc(n, i, d) option remember; `if`(i*(i+1)/2<n, 0,
%p `if`(n=0, 1, b(n, i-1, d+1)+`if`(i>n, 0, d*b(n-i, i-1, 1))))
%p end:
%p T:= (n, r)-> b(n-r, r-1, 1):
%p seq(seq(T(n,r), r=1..n), n=1..15); # _Alois P. Heinz_, Jul 08 2016
%t b[n_, i_, d_] := b[n, i, d] = If[i*(i+1)/2 < n, 0, If[n == 0, 1, b[n, i-1, d+1] + If[i > n, 0, d*b[n-i, i-1, 1]]]];
%t T[n_, r_] := b[n-r, r-1, 1];
%t Table[T[n, r], {n, 1, 15}, {r, 1, n}] // Flatten (* _Jean-François Alcover_, Jul 27 2016, after _Alois P. Heinz_ *)
%Y Cf. A001524 (row sums), A001519 (column sums).
%Y Cf. also A005575 (a diagonal), A005576, A005577 (row maxima), A005578.
%K nonn,tabl
%O 1,9
%A _N. J. A. Sloane_, Jun 19 2015