OFFSET
0,2
COMMENTS
See A369134 for comments and formulas.
MATHEMATICA
A368846[n_, k_] := If[k == 0, Boole[n == 0], (-1)^(n + k) 2 Binomial[2 k - 1, n] Binomial[2 n + 1, 2 k]];
LCM @@@ Denominator[MapIndexed[Take[#, First[#2]]&, Inverse[PadRight[Table[ A368846[n, k], {n, 0, 25}, {k, 0, n}]]]]] (* Paolo Xausa, Jan 14 2024 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, Jan 14 2024
STATUS
approved