OFFSET
0,3
MATHEMATICA
a014137[n_] := Sum[CatalanNumber[k], {k, 0, n}];
a072643[n_] := Module[{i, c, a}, i = c = 0; a = 1; While[n > c, a *= (4*i + 2)/(i + 2); i++; c += a]; i];
a[n_] := a014137[a072643[n] - 1];
Table[a[n], {n, 0, 76}] (* Jean-François Alcover, Dec 26 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 17 2003
STATUS
approved