A038750 A variant of the recurrence for A001190.

0, 1, 1, 1, 2, 2, 5, 7, 17, 29, 66, 126, 284, 568, 1281, 2662, 6017, 12756, 28992, 62621, 142801, 312129, 714760, 1578706, 3626762, 8074580, 18606900, 41716797, 96374235, 217271226, 503159109, 1139963936, 2645397326, 6018491701

Offset

0,5

Links

Table of n, a(n) for n=0..33.

Maple

A038750 := proc(n) option remember; local s, k; if n<=1 then RETURN(n); elif n <=3 then RETURN(1); else s := 0; if n mod 2 = 0 then s := A038750(n/2)*(A038750(n/2)+1)/2; for k from 1 to n/2-1 do s := s+A038750(k)*A038750(n-k); od; RETURN(s); else for k from 1 to (n-1)/2-1 do s := s+A038750(k)*A038750(n-k); od; RETURN(s); fi; fi; end;

Crossrefs

Cf. A001190, A038751.

Sequence in context: A145344 A034438 A079280 * A356434 A300439 A208818

Adjacent sequences: A038747 A038748 A038749 * A038751 A038752 A038753

Keyword

nonn

Author

N. J. A. Sloane, May 03 2000

Status

approved