OFFSET
0,3
LINKS
Aubrey Blecher and Arnold Knopfmacher, Left to right maxima in Dyck Paths, arXiv:2107.03102 [math.CO], 2021. See Theorem 4 p. 8.
FORMULA
MAPLE
a:= n-> (d-> add((binomial(2*n-1, n-r)-binomial(2*n-1, n-r-1))
*(d(r+1)-d(r)), r=1..n))(numtheory[tau]):
seq(a(n), n=0..28); # Alois P. Heinz, Jul 08 2021
MATHEMATICA
a[n_] := (Sum[(DivisorSigma[0, r + 1] - DivisorSigma[0, r])*(Binomial[2*n - 1, n - r] - Binomial[2*n - 1, n - r - 1]), {r, 1, n}]);
Table[a[i], {i, 0, 28}] (* Kebbaj Mohamed Reda, Jun 06 2022 *)
PROG
(PARI) a(n) = sum(r=1, n, (numdiv(r+1)-numdiv(r))*(binomial(2*n-1, n-r)-binomial(2*n-1, n-r-1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Jul 08 2021
STATUS
approved