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,2

Links

Table of n, a(n) for n=1..51.

Example

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

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]

Crossrefs

Cf. A084221.

Sequence in context: A334901 A279732 A260669 * A122756 A193946 A349259

Adjacent sequences: A122755 A122756 A122757 * A122759 A122760 A122761

Keyword

nonn,tabl

Author

Roger L. Bagula, Sep 21 2006

Extensions

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

Status

approved