OFFSET
1,1
COMMENTS
Row sums are:
{3, 6, 9, 15, 18, 36, 42, 114, 132, 492, 564}
REFERENCES
Advanced Number Theory, Harvey Cohn, Dover Books, 1963, Pages 88-89
FORMULA
g(n,m)= If[m < "is less than" Floor[n/2], m!, (n - m)! ]; f(x,y,n)=Sum[Binomial[n, i]*x^i*y^(n - i), {i, 0, n}]; p(x,y,z,n)=f(x,y,n)+f(y,z,n)+f(x,z,n); Out_n,m=Coefficients(p(x,1,1,n)).
EXAMPLE
{3},
{4, 2},
{5, 2, 2},
{7, 4, 2, 2},
{8, 2, 4, 2, 2},
{14, 2, 12, 4, 2, 2},
{16, 2, 4, 12, 4, 2, 2},
{40, 2, 4, 48, 12, 4, 2, 2},
{46, 2, 4, 12, 48, 12, 4, 2, 2},
{166, 2, 4, 12, 240, 48, 12, 4, 2, 2},
{190, 2, 4, 12, 48, 240, 48, 12, 4, 2, 2}
MATHEMATICA
Clear[f, x, n] g[n_, m_] = If[m < Floor[n/2], m!, (n - m)! ]; f[x_, y_, n_] = Sum[g[n, i]*x^i*y^(n - i), {i, 0, n}]; Table[ExpandAll[f[x, y, n] + f[y, z, n] + f[x, z, n]], {n, 0, 10}] a = Table[CoefficientList[ExpandAll[f[x, y, n] + f[y, z, n] + f[x, z, n]] /. y -> 1 /. z -> 1, x], {n, 0, 10}]; Flatten[a]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula and Gary W. Adamson, Jun 09 2008
STATUS
approved