login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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