A340057 - OEIS

A340057

Irregular triangle read by rows T(n,k) in which row n lists n blocks, where the block m consists of the divisors of m multiplied by A000041(n-m), with 1 <= m <= n.

1, 1, 1, 2, 2, 1, 2, 1, 3, 3, 2, 4, 1, 3, 1, 2, 4, 5, 3, 6, 2, 6, 1, 2, 4, 1, 5, 7, 5, 10, 3, 9, 2, 4, 8, 1, 5, 1, 2, 3, 6, 11, 7, 14, 5, 15, 3, 6, 12, 2, 10, 1, 2, 3, 6, 1, 7, 15, 11, 22, 7, 21, 5, 10, 20, 3, 15, 2, 4, 6, 12, 1, 7, 1, 2, 4, 8, 22, 15, 30, 11, 33, 7, 14, 28, 5, 25

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

COMMENTS

This triangle is a condensed version of the more irregular triangle A340035.

For further information about the correspondence divisor/part see A338156.

LINKS

Paolo Xausa, Table of n, a(n) for n = 1..11528 (rows 1..75 of the triangle, flattened)

EXAMPLE

Triangle begins:

[1];

[1], [1, 2];

[2], [1, 2], [1, 3];

[3], [2, 4], [1, 3], [1, 2, 4];

[5], [3, 6], [2, 6], [1, 2, 4], [1, 5];

[7], [5, 10], [3, 9], [2, 4, 8], [1, 5], [1, 2, 3, 6];

[11], [7, 14], [5, 15], [3, 6, 12], [2, 10], [1, 2, 3, 6], [1, 7];

...

Row sums gives A066186.

Written as a tetrahedrons the first five slices are:

1, 2;

-----

1, 2,

1, 3;

-----

2, 4,

1, 3,

1, 2, 4;

--------

3, 6,

2, 6,

1, 2, 4,

1, 5;

--------

Row sums give A221529.

The slices of the tetrahedron appear in the upper zone of the following table (formed by four zones) which shows the correspondence between divisors and parts (n = 1..5):

|---|---------|-----|-------|---------|-----------|-------------|

| n | | 1 | 2 | 3 | 4 | 5 |

|---|---------|-----|-------|---------|-----------|-------------|

| | - | | | | | 5 |

| C | - | | | | 3 | 3 6 |

| O | - | | | 2 | 2 4 | 2 6 |

| N | A027750 | | 1 | 1 2 | 1 3 | 1 2 4 |

| D | A027750 | 1 | 1 2 | 1 3 | 1 2 4 | 1 5 |

|---|---------|-----|-------|---------|-----------|-------------|

| | A027750 | | | | | 1 |

| D | A027750 | | | | | 1 |

| I |---------|-----|-------|---------|-----------|-------------|

| V | A027750 | | | | 1 | 1 2 |

| I | A027750 | | | | 1 | 1 2 |

| S | A027750 | | | | 1 | 1 2 |

| O |---------|-----|-------|---------|-----------|-------------|

| R | A027750 | | | 1 | 1 2 | 1 3 |

| S | A027750 | | | 1 | 1 2 | 1 3 |

| |---------|-----|-------|---------|-----------|-------------|

| | A027750 | | 1 | 1 2 | 1 3 | 1 2 4 |

| |---------|-----|-------|---------|-----------|-------------|

| | A027750 | 1 | 1 2 | 1 3 | 1 2 4 | 1 5 |

|---|---------|-----|-------|---------|-----------|-------------|

| | A138785 | 1 | 2 2 | 4 2 3 | 7 6 3 4 | 12 8 6 4 5 |

| | | = | = = | = = = | = = = = | = = = = = |

| L | A002260 | 1 | 1 2 | 1 2 3 | 1 2 3 4 | 1 2 3 4 5 |

| I | | * | * * | * * * | * * * * | * * * * * |

| N | A066633 | 1 | 2 1 | 4 1 1 | 7 3 1 1 | 12 4 2 1 1 |

| K | | | | |\| | |\|\| | |\|\|\| | |\|\|\|\| |

| | A181187 | 1 | 3 1 | 6 2 1 | 12 5 2 1 | 20 8 4 2 1 |

|---|---------|-----|-------|---------|-----------|-------------|

| P | | 1 | 1 1 | 1 1 1 | 1 1 1 1 | 1 1 1 1 1 |

| A | | | 2 | 2 1 | 2 1 1 | 2 1 1 1 |

| R | | | | 3 | 3 1 | 3 1 1 |

| T | | | | | 2 2 | 2 2 1 |

| I | | | | | 4 | 4 1 |

| T | | | | | | 3 2 |

| I | | | | | | 5 |

| O | | | | | | |

| N | | | | | | |

| S | | | | | | |

|---|---------|-----|-------|---------|-----------|-------------|

The upper zone is a condensed version of the "divisors" zone.

The above table is the table of A340056 upside down.

MATHEMATICA

A340057row[n_]:=Flatten[Table[Divisors[m]PartitionsP[n-m], {m, n}]]; Array[A340057row, 10] (* Paolo Xausa, Sep 02 2023 *)

CROSSREFS

Nonzero terms of A221649.

Cf. A000041, A002260, A027750, A066186, A066633, A127093, A135010, A138121, A138785, A176206, A181187, A182703, A207031, A207383, A221529, A221530, A221531, A236104, A237593, A245092, A245095, A221650, A302246, A302247, A336811, A336812, A337209, A338156, A339106, A339258, A339278, A339304, A340011, A340031, A340032, A340056, A340057, A340061.

Sequence in context: A237615 A343190 A256132 * A303476 A187201 A262403

Adjacent sequences: A340054 A340055 A340056 * A340058 A340059 A340060

KEYWORD

nonn,tabf

AUTHOR

Omar E. Pol, Dec 27 2020

STATUS

approved