OFFSET
0,13
LINKS
Seiichi Manyama, Antidiagonals n = 0..139, flattened
FORMULA
E.g.f. of column k: exp((Sum_{j=1..k-1} x^j)/(1 - x^k)).
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, ...
0, 1, 1, 1, 1, ...
0, 1, 3, 3, 3, ...
0, 7, 7, 13, 13, ...
0, 25, 49, 49, 73, ...
0, 181, 321, 381, 381, ...
MATHEMATICA
kmax = 12; col[k_] := PadRight[(Exp[Sum[x^j, {j, 1, k - 1}]/(1 - x^k)] + O[x]^kmax // CoefficientList[#, x] &), kmax]*Range[0, kmax - 1]!; A = Array[col, kmax]; Table[A[[n - k + 1, k]], {n, 1, kmax}, {k, 1, n}] // Flatten (* Jean-François Alcover, Oct 12 2017, from formula *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, Oct 11 2017
STATUS
approved