login
A019501
Number of 7-ary search trees on n keys.
0
1, 1, 1, 1, 1, 1, 1, 7, 28, 84, 210, 462, 924, 1758, 3444, 7602, 19278, 52458, 142044, 368130, 905136, 2130198, 4895919, 11280885, 26685540, 65491062, 165584034, 423910572, 1080774261, 2717940687, 6731334225, 16494155097, 40308269022
OFFSET
0,8
LINKS
MAPLE
A:= proc(n) option remember; if n=0 then 1 else convert(series(
add(x^i, i=0..5)+ x^6*A(n-1)^7, x=0, n+1), polynom) fi
end:
a:= n-> coeff(A(n), x, n):
seq(a(n), n=0..40); # Alois P. Heinz, Aug 22 2008
MATHEMATICA
A[n_] := A[n] = If[n==0, 1, Series[Sum[x^i, {i, 0, 5}] + x^6*A[n-1]^7, {x, 0, n+1}] // Normal]; a[n_] := Coefficient[A[n], x, n]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 19 2016, after Alois P. Heinz *)
CROSSREFS
Sequence in context: A000579 A290994 A049017 * A229887 A243741 A369809
KEYWORD
nonn
AUTHOR
James Fill (jimfill(AT)jhu.edu)
EXTENSIONS
More terms from Alois P. Heinz, Aug 22 2008
STATUS
approved