OFFSET
0,14
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..350
FORMULA
EXAMPLE
MAPLE
MATHEMATICA
max = 9; RowAsTriangle[m_][n_, k_] := Module[{pow}, pow[a_, b_] := If[a == 0 && b == 0, 1, a^b]; Module[{i, j}, Sum[Sum[(-1)^(j+i)*Binomial[i, j]*pow[n, j]*pow[k, m-j], {i, 0, m}], {j, 0, m}]]]; t = Flatten /@ Table[RowAsTriangle[m][n, k], {m, 0, max}, {n, 0, max}, {k, 0, n}]; Table[t[[n-k+1, k+1]], {n, 0, max}, {k, 0, n }] // Flatten (* Jean-François Alcover, Feb 25 2014, after Maple *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Nov 02 2011
STATUS
approved