login
Triangle read by rows: zeros except for right border which are the partition numbers A000041.
2

%I #14 Mar 06 2022 08:36:52

%S 1,0,2,0,0,3,0,0,0,5,0,0,0,0,7,0,0,0,0,0,11,0,0,0,0,0,0,15,0,0,0,0,0,

%T 0,0,22,0,0,0,0,0,0,0,0,30,0,0,0,0,0,0,0,0,0,42,0,0,0,0,0,0,0,0,0,0,

%U 56,0,0,0,0,0,0,0,0,0,0,0,77,0,0,0,0,0,0,0,0,0,0,0,0,101

%N Triangle read by rows: zeros except for right border which are the partition numbers A000041.

%C Row sums = partition numbers, A000041 starting with A000041(1).

%C A132825 * [1, 2, 3, ...] = A066186.

%H Robert Price, <a href="/A132825/b132825.txt">Table of n, a(n) for n = 1..1275, 50 rows.</a>

%F Infinite lower triangular matrix, partition numbers (A000041, starting 1, 2, 3, 5, 7, 11, ...) in the main diagonal and the rest zeros.

%e First few rows of the triangle:

%e 1;

%e 0, 2;

%e 0, 0, 3;

%e 0, 0, 0, 5;

%e 0, 0, 0, 0, 7;

%e 0, 0, 0, 0, 0, 11;

%e ...

%t Table[Join[ConstantArray[0, n - 1], {PartitionsP[n]}], {n, 13}] // Flatten (* _Robert Price_, May 19 2020 *)

%t Table[Join[PadRight[{},n-1,0],{PartitionsP[n]}],{n,20}]//Flatten (* _Harvey P. Dale_, Sep 14 2021 *)

%Y Cf. A000041, A066186.

%K nonn,tabl

%O 1,3

%A _Gary W. Adamson_, Sep 02 2007