login
A082852
a(0)=0, a(n) = A014137(A072643(n)-1).
9
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,3
COMMENTS
A014137(n) occurs A000108(n+1) times.
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
(Scheme) (define (A082852 n) (if (zero? n) 0 (A014137 (-1+ (A072643 n)))))
(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
CROSSREFS
Used to compute A082853. Cf. also A082855.
Sequence in context: A164632 A063095 A156726 * A083551 A080374 A165040
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 17 2003
STATUS
approved