OFFSET
0,1
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..830
W. Lang, Rationals r(n), limit.
FORMULA
a(n) = numerator(r(n)) with r(n):= sum(C(k)*(1+2^(k+1))/16^k,k=0..n), n>=0, with C(k)=A000108(k) (Catalan numbers).
EXAMPLE
Rationals r(n): [3, 53/16, 433/128, 13941/4096, 111759/32768,
1789509/524288, 14320329/4194304, 916611309/268435456,...].
MATHEMATICA
Table[Numerator[Sum[CatalanNumber[k]*(1 + 2^(k + 1))/16^k, {k, 0, n}]], {n, 0, 50}] (* G. C. Greubel, Sep 27 2018 *)
PROG
(PARI) for(n=0, 30, print1(numerator(sum(k=0, n, binomial(2*k, k)*(1 + 2^(k+1))/(16^k*(k+1)))), ", ")) \\ G. C. Greubel, Sep 27 2018
(Magma) [Numerator( (&+[Binomial(2*k, k)*(1 + 2^(k+1))/(16^k*(k+1)): k in [0..n]]) ): n in [0..30]]; // G. C. Greubel, Sep 27 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Aug 16 2006
STATUS
approved