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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A139100 Triangle read by rows: row n lists all partitions of n in the order produced by the shell model of partitions A138151. 5
 1, 2, 1, 1, 3, 2, 1, 1, 1, 1, 4, 2, 2, 3, 1, 2, 1, 1, 1, 1, 1, 1, 5, 3, 2, 4, 1, 2, 2, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 6, 4, 2, 3, 3, 2, 2, 2, 5, 1, 3, 2, 1, 4, 1, 1, 2, 2, 1, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 5, 2, 4, 3, 3, 2, 2, 6, 1, 4, 2, 1, 3, 3, 1, 2, 2, 2, 1, 5, 1, 1, 3, 2, 1, 1, 4 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS See the integrated diagram of partitions in the entry A138138. See A138151 for more information. First 43 members = A026792. LINKS Robert Price, Table of n, a(n) for n = 1..7043, 17 rows. EXAMPLE Triangle begins: {(1)} {(2), (1, 1)} {(3), (2, 1), (1, 1, 1)} {(4), (2, 2), (3, 1), (2, 1, 1), (1, 1, 1, 1)} {(5), (3, 2), (4, 1), (2, 2, 1), (3, 1, 1), (2, 1, 1, 1), (1, 1, 1, 1, 1)} MATHEMATICA Table[If[n == 1, ConstantArray[{1}, i - n + 1],    Map[(Join[#, ConstantArray[{1}, i - n]]) &,     Cases[IntegerPartitions[n], x_ /; Last[x] != 1]]], {i, 7}, {n, i, 1, -1}]  // Flatten(* Robert Price, May 28 2020 *) CROSSREFS Cf. A000041, A006128, A026792, A036036, A080576, A080577, A135010, A138121, A138135, A138136, A138137, A138138, A138151. Sequence in context: A277648 A026792 A334301 * A237982 A239512 A334439 Adjacent sequences:  A139097 A139098 A139099 * A139101 A139102 A139103 KEYWORD nonn,tabf,less,changed AUTHOR Omar E. Pol, Apr 15 2008 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 May 30 08:04 EDT 2020. Contains 334712 sequences. (Running on oeis4.)