OFFSET
0,2
MATHEMATICA
(* The function RiordanSquare is defined in A321620. *)
SwingingFactorial = (1 + x/(1 - 4x^2))/Sqrt[1 - 4x^2];
M = RiordanSquare[SwingingFactorial, 28]; Map[Total, M]
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 22 2018
STATUS
approved