|
|
A346157
|
|
Total number of left-to-right maxima in Dyck paths of semilength n.
|
|
2
|
|
|
0, 1, 2, 6, 19, 63, 216, 758, 2705, 9777, 35698, 131425, 487201, 1816651, 6807742, 25621878, 96796225, 366902949, 1394851446, 5316835073, 20314772302, 77786795230, 298435201100, 1147019162326, 4415737088310, 17025146600174, 65732992038182, 254118443847070, 983579262641569
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{r=1..n} (d(r+1)-d(r))*(binomial(2*n-1, n-r)-binomial(2*n-1,n-r-1)) where d is A000005 and binomial is A007318.
|
|
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]):
|
|
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}]);
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|