A122758 Triangle read by rows: T(n,m) = 2*n^2*A084221(n) (n>=0, 0 <= m <= n).

0, 2, 6, 8, 24, 32, 18, 54, 72, 216, 32, 96, 128, 384, 512, 50, 150, 200, 600, 800, 2400, 72, 216, 288, 864, 1152, 3456, 4608, 98, 294, 392, 1176, 1568, 4704, 6272, 18816, 128, 384, 512, 1536, 2048, 6144, 8192, 24576, 32768, 162, 486, 648, 1944, 2592, 7776

Offset: 1

Author

Roger L. Bagula, Sep 21 2006

Keywords

• nonn
• tabl

Examples

			Triangle begins:
0
2, 6
8, 24, 32
18, 54, 72, 216
32, 96, 128, 384, 512
50, 150, 200, 600, 800, 2400
		

Crossrefs

Cf. A084221.

Programs

Mathematica

f[n_] := If[Mod[n, 2] == 0, 2^(n + 1), 2^n + 2^(n + 1)]; T[n_, m_] := m^2*f[n]; a = Table[Table[T[n, m], {n, 0, m}], {m, 0, 10}]; Flatten[a]

Extensions

Edited by N. J. A. Sloane, Jun 23 2009