proposed
approved
proposed
approved
editing
proposed
P. Paul Barry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL12/Barry3/barry93.html">Continued fractions and transformations of integer sequences</a>, JIS 12 (2009) 09.7.6.
proposed
editing
editing
proposed
RiordanSquare[gf_, len_] := Module[{T}, T[n_, k_] := T[n, k] = If[k == 0, SeriesCoefficient[gf, {x, 0, n}], Sum[T[j, k - 1] T[n - j, 0], {j, k - 1, n - 1}]]; Table[T[n, k], {n, 0, len - 1}, {k, 0, n}]];
RiordanSquare[Sum[x^k/Product[1 - j x, {j, 1, k}], {k, 0, 10}], 10] (* Jean-François Alcover, Jun 15 2019, from Maple *)
approved
editing
editing
approved
P. Barry, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL12/Barry3/barry93.html">Continued fractions and transformations of integer sequences</a>, JIS 12 (2009) 09.7.6.
approved
editing
editing
approved
RiordanSquare(add(x^k/mul(1-j*x, j=1..k), k=0..10), 10); # _Peter Luschny_, Dec 06 2018
approved
editing
proposed
approved