This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A238326 Array: row n gives the number of occurrences of each possible diagonal partition of n, arranged in reverse Mathematica order. 5
 1, 2, 3, 4, 1, 5, 2, 6, 3, 2, 7, 4, 4, 8, 5, 6, 3, 9, 6, 8, 6, 1, 10, 7, 10, 9, 4, 2, 11, 8, 12, 12, 8, 3, 2, 12, 9, 14, 15, 12, 5, 4, 4, 2, 13, 10, 16, 18, 16, 10, 5, 6, 3, 4, 14, 11, 18, 21, 20, 15, 6, 6, 8, 6, 6, 4, 15, 12, 20, 24, 24, 20, 7, 12, 10, 9, 8 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Suppose that p is a partition of n, let F(p) be its Ferrers matrix, as defined at A237981, and let mXm be the size of F(p).  The numbers of 1s in each of the 2m-1 diagonals of F(p) form a partition of n.  Any partition which is associated with a partition of n in this manner is introduced here as a diagonal partition of n.  A000041(n) = sum of the numbers in row n; A003114(n) = number of terms in row n.  Every diagonal partition is an antidiagonal partition, as in A238325 (but not conversely). LINKS Clark Kimberling, Table of n, a(n) for n = 1..1000 EXAMPLE The Mathematica ordering of the 3 antidiagonal partitions of 6 follows:  2211, 21111, 111111.)  Frequencies of these among the 11 partitions of 6 are given in reverse Mathematica ordering as follows:  111111 occurs 6 times, 21111 occurs 3 times, and 2211 occurs 2 times, so that row 6 of the array is 6 3 2. ... First 9 rows: 1 2 3 4 1 5 2 6 3 2 7 4 4 8 5 6 3 9 6 8 6 1 MATHEMATICA z = 20; ferrersMatrix[list_] := PadRight[Map[Table[1, {#}] &, #], {#, #} &[Max[#, Length[#]]]] &[list]; diagPartSE[list_] := Module[{m = ferrersMatrix[list]}, Map[Diagonal[m, #] &, Range[-#, #] &[Length[m] - 1]]]; Tally[Map[  DeleteCases[Reverse[Sort[Map[Count[#, 1] &, diagPartSE[#]]]], 0] &, IntegerPartitions[z]]]; a1[n_] := Last[Transpose[Tally[Map[DeleteCases[Reverse[Sort[Map[Count[#, 1] &, diagPartSE[#]]]], 0] &, IntegerPartitions[n]]]]]; t = Table[a1[n], {n, 1, z}]; u = Flatten[t] Map[Last[Transpose[Tally[Map[DeleteCases[Reverse[Sort[Map[Count[#, 1] &, diagPartSE[#]]]], 0] &, IntegerPartitions[#]]]]] &, Range[z]] // TableForm (* Peter J. C. Moses, Feb 25 2014 *) CROSSREFS Cf. A238325, A003114, A000041. Sequence in context: A302786 A322026 A087165 * A083480 A179547 A023133 Adjacent sequences:  A238323 A238324 A238325 * A238327 A238328 A238329 KEYWORD nonn,tabf,easy AUTHOR Clark Kimberling and Peter J. C. Moses, Feb 25 2014 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 19 00:55 EDT 2019. Contains 324217 sequences. (Running on oeis4.)