A172985 Triangle T(n,m) = A049614(n)/ (A049614(m)*A049614(n-m)) read by rows.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, 1, 1, 1, 4, 4, 1, 1, 1, 6, 6, 24, 6, 6, 1, 1, 1, 6, 6, 6, 6, 1, 1, 1, 8, 8, 48, 12, 48, 8, 8, 1, 1, 9, 72, 72, 108, 108, 72, 72, 9, 1, 1, 10, 90, 720, 180, 1080, 180, 720, 90, 10, 1, 1, 1, 10, 90, 180, 180, 180, 180, 90, 10, 1, 1, 1, 12, 12, 120, 270

Offset: 0

Author

Roger L. Bagula, Feb 06 2010

Keywords

• nonn
• tabl
• easy

Comments

Row sums are: 1, 2, 3, 4, 14, 12, 50, 28, 142, 524, 3082,...

Examples

			1;
1, 1;
1, 1, 1;
1, 1, 1, 1;
1, 4, 4, 4, 1;
1, 1, 4, 4, 1, 1;
1, 6, 6, 24, 6, 6, 1;
1, 1, 6, 6, 6, 6, 1, 1;
1, 8, 8, 48, 12, 48, 8, 8, 1;
1, 9, 72, 72, 108, 108, 72, 72, 9, 1;
1, 10, 90, 720, 180, 1080, 180, 720, 90, 10, 1;
		

Programs

Mathematica

c[n_] := Product[If[i == 0, 1, If[PrimeQ[i], 1, i]], {i, 0, n}];
t[n_, m_] := c[n]/(c[m]*c[n - m]);
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]

Extensions

Definition simplified by the Assoc. Editors of the OEIS, Mar 05 2010