The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A115622 Irregular triangle read by rows: row m lists the signatures of all partitions of m when the partitions are arranged in Mathematica order. 6
 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 4, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 5, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 3, 2, 2, 4, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 2, 1, 2, 1, 1, 4, 1, 3, 1, 3, 2, 5, 1, 7, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 4, 1, 2, 1, 2, 2, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS The signature of a partition is a partition consisting of the repetition factors of the original partition. E.g., [4,4,3,1,1] = [4^2,3^1,1^2], so the repetition factors are 2,1,2, making the signature [2,2,1] = [2^2,1]. The sum (or order) of the signature is the number of parts of the original partition and the number of parts of the signature is the number of distinct parts of the original partition. LINKS Robert Price, Table of n, a(n) for n = 1..8266 (first 20 rows). EXAMPLE From Hartmut F. W. Hoft, Apr 25 2015: (Start) The first six rows of the triangle are as follows. 1:  [1] 2:  [1] [2] 3:  [1] [1,1] [3] 4:  [1] [1,1] [2]   [2,1] [4] 5:  [1] [1,1] [1,1] [2,1] [2,1] [3,1]   [5] 6:  [1] [1,1] [1,1] [2,1] [2]   [1,1,1] [3,1] [3] [2,2] [4,1] [6] See A115621 for the signatures in Abramowitz-Stegun order. (End) MATHEMATICA (* row[] and triangle[] compute structured rows of the triangle as laid out above *) mL[pL_] := Map[Last[Transpose[Tally[#]]]&, pL] row[n_] := Map[Reverse[Sort[#]]&, mL[IntegerPartitions[n]]] triangle[n_] := Map[row, Range[n]] a115622[n_]:= Flatten[triangle[n]] Take[a115622[8], 105] (* data *)  (* Hartmut F. W. Hoft, Apr 25 2015 *) Map[Sort[#, Greater] &, Table[Last /@ Transpose /@ Tally /@ IntegerPartitions[n], {n, 8}], 2] // Flatten  (* Robert Price, Jun 12 2020 *) CROSSREFS Cf. A080577, A115624, A115621, part counts A115623, row counts A000070. Sequence in context: A316979 A331024 A115561 * A294892 A108886 A140886 Adjacent sequences:  A115619 A115620 A115621 * A115623 A115624 A115625 KEYWORD nonn,tabf AUTHOR Franklin T. Adams-Watters, Jan 25 2006 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 December 7 21:49 EST 2021. Contains 349589 sequences. (Running on oeis4.)