|
|
|
|
1, 4, 20, 108, 604, 3444, 19876, 115644, 676748, 3977316, 23451700, 138634764, 821221692, 4872734676, 28952250564, 172222729308, 1025461169772, 6110912705220, 36441840179284, 217450403367852, 1298228971572764, 7754336590794804, 46335720234364900
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
(* The function RiordanSquare is defined in A321620. *)
LargeSchröder = (1 - x - Sqrt[1 - 6x + x^2])/(2x);
M = RiordanSquare[LargeSchröder, 23]; Map[Total, M]
(* Alternative: *)
CoefficientList[Series[1/(Sqrt[1-6x+x^2]-x), {x, 0, 22}], x] (* Stefano Spezia, Feb 05 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|