OFFSET
0,4
EXAMPLE
[0] [ 1]
[1] [ 1, 1]
[2] [ 2, 3, 1]
[3] [ 6, 10, 5, 1]
[4] [ 6, 22, 22, 7, 1]
[5] [ 30, 66, 66, 38, 9, 1]
[6] [ 20, 140, 218, 146, 58, 11, 1]
[7] [ 140, 372, 574, 542, 270, 82, 13, 1]
[8] [ 70, 826, 1680, 1708, 1134, 446, 110, 15, 1]
[9] [ 630, 1930, 4156, 5432, 4126, 2106, 682, 142, 17, 1]
MAPLE
# The function RiordanSquare is defined in A321620.
SwingingFactorial := (1 + x/(1 - 4*x^2))/sqrt(1 - 4*x^2);
RiordanSquare(SwingingFactorial, 10);
MATHEMATICA
(* The function RiordanSquare is defined in A321620. *)
SwingingFactorial = (1 + x/(1 - 4*x^2))/Sqrt[1 - 4*x^2];
RiordanSquare[SwingingFactorial, 10] (* Jean-François Alcover, Jun 15 2019, from Maple *)
PROG
(Sage) # uses[riordan_square from A321620]
riordan_square((1 + x/(1 - 4*x^2))/sqrt(1 - 4*x^2), 10)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Nov 22 2018
STATUS
approved