OFFSET
0,2
MATHEMATICA
Trinomial[n_, k_] := If[k == 0, 1, Coefficient[(1 + x + x^2)^n, x^k]]; a[n_] := Sum[Trinomial[n, k](n + k)!, {k, 0, 2n}]; Table[a[n], {n, 0, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Jan 25 2011
STATUS
approved