login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A259095 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). 7
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, 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, 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 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,9

COMMENTS

Computed by R. K. Guy (see link).

LINKS

Joerg Arndt, Table of n, a(n) for n = 1..5050 (rows 1..100, flattened)

Joerg Arndt, C++ program for this sequence, 2016

F. C. Auluck, On some new types of partitions associated with generalized Ferrers graphs, Proc. Cambridge Philos. Soc. 47, (1951), 679-686.

F. C. Auluck, On some new types of partitions associated with generalized Ferrers graphs (annotated scanned copy)

R. K. Guy, Letter to N. J. A. Sloane, Apr 08 1988 (annotated scanned copy, included with permission)

FORMULA

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]

EXAMPLE

Triangle begins:

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,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,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,

...

(An unusually large number of rows are shown in order to explain the related sequences A005575-A005578.

MAPLE

b:= proc(n, i, d) option remember; `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))))

    end:

T:= (n, r)-> b(n-r, r-1, 1):

seq(seq(T(n, r), r=1..n), n=1..15);  # Alois P. Heinz, Jul 08 2016

MATHEMATICA

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[n_, r_] := b[n-r, r-1, 1];

Table[T[n, r], {n, 1, 15}, {r, 1, n}] // Flatten (* Jean-Fran├žois Alcover, Jul 27 2016, after Alois P. Heinz *)

CROSSREFS

Cf. A001524 (row sums), A001519 (column sums).

Cf. also A005575 (a diagonal), A005576, A005577 (row maxima), A005578.

Sequence in context: A164846 A026729 A109466 * A076833 A071676 A115363

Adjacent sequences:  A259092 A259093 A259094 * A259096 A259097 A259098

KEYWORD

nonn,tabl

AUTHOR

N. J. A. Sloane, Jun 19 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 18 17:56 EST 2017. Contains 294894 sequences.