OFFSET
0,7
MAPLE
A038751 := proc(n) option remember; local s, k; if n<=1 then RETURN(n); else s := 0; if n mod 2 = 0 then s := A038751(n/2) * (A038751(n/2) + 1)/2; for k from 1 to n/2 - 1 do s := s + A038751(k) * A038751(n - k); od; RETURN(s); else for k from 1 to (n - 1)/2 - 1 do s := s + A038751(k) * A038751(n - k); od; RETURN(s); fi; fi; end;
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 03 2000
STATUS
approved