A082852 a(0)=0, a(n) = A014137(A072643(n)-1).

0, 1, 2, 2, 4, 4, 4, 4, 4, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65

Offset: 0

Author

Antti Karttunen, Apr 17 2003

Keywords

• nonn

Comments

A014137(n) occurs A000108(n+1) times.

Crossrefs

Used to compute A082853. Cf. also A082855.

Programs

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 *)

Sage

def A082852(n) :
    i = c = 0; a = 1
    while n > c :
        a *= (4*i+2)/(2+i)
        i += 1; c += a
    return c-a+1
[A082852(n) for n in (0..76)] # - Peter Luschny, Sep 07 2012

Scheme

(define (A082852 n) (if (zero? n) 0 (A014137 (-1+ (A072643 n)))))