OFFSET
10,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 10..10000
Eric Weisstein's World of Mathematics, Heap
Wikipedia, Binary heap
Index entries for linear recurrences with constant coefficients, signature (1, 2, -2, 3, -3, -8, 8, 2, -2, 4, -4, -14, 14, 24, -24, 5, -5, -34, 34, 25, -25, -16, 16, -20, 20, 56, -56, -20, 20, -16, 16, 25, -25, -34, 34, 5, -5, 24, -24, -14, 14, 4, -4, 2, -2, -8, 8, 3, -3, 2, -2, -1, 1).
MAPLE
b:= proc(n) option remember; series(`if`(n=0, 1, (g-> (f->
x^n+b(f)*b(n-1-f))(min(g-1, n-g/2)))(2^ilog2(n))), x, 11)
end:
a:= n-> coeff(b(n), x, 10):
seq(a(n), n=10..50);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alois P. Heinz, Jul 09 2019
STATUS
approved