OFFSET
0,6
LINKS
Paul Drube and Puttipong Pongtanapaisan, Annular Non-Crossing Matchings, Journal of Integer Sequences, Vol. 19 (2016), Article 16.2.4.
MATHEMATICA
T[n_, k_] := DivisorSum[GCD[n, k], EulerPhi[#] * Binomial[(2*n+k)/#, n/#]/(2*n+k) &]; T[0, 0] = 1; Table[T[k, n-k], {n, 0, 11}, {k, 0, n}] // Flatten (* Amiram Eldar, Aug 29 2023 *)
PROG
(PARI) t(n, k) = if (!n && !k, 1, sumdiv(gcd(n, k), d, eulerphi(d)*binomial((2*n+k)/d, n/d))/(2*n+k));
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Michel Marcus, Jan 24 2016
STATUS
approved