|
%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
|
