This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A029758 #30 Dec 17 2018 10:35:20 %S A029758 1,1,3,15,315,108675,11878720875,141106591466142946875, %T A029758 19911070158545297149037891328865229296875, %U A029758 396450714858513044552818188364610837019719636049876979456842033610756600341796875 %N A029758 Number of AVL trees of height n. %D A029758 D. E. Knuth, Art of Computer Programming, Vol. 3, Sect. 6.2.3 (7) and (8). %H A029758 Alois P. Heinz, <a href="/A029758/b029758.txt">Table of n, a(n) for n = 0..12</a> %H A029758 <a href="/index/Ro#rooted">Index entries for sequences related to rooted trees</a> %F A029758 a(n+1) = a(n)^2 + 2*a(n)*a(n-1). %F A029758 According to Knuth (p. 715), a(n) ~ c^(2^n), where c = 1.4368728483944618758004279843355486292481149448324679771230546290458819902268... - _Vaclav Kotesovec_, Dec 17 2018 %e A029758 G.f. = 1 + x + 3*x^2 + 15*x^3 + 315*x^4 + 108675*x^5 + 11878720875*x^6 + ... %p A029758 A029758 := proc(n) option remember; if n <= 1 then RETURN(1); else A029758(n-1)^2+2*A029758(n-1)*A029758(n-2); fi; end; %t A029758 a[0] = a[1] = 1; a[n_] := a[n] = a[n-1]^2 + 2*a[n-1]*a[n-2]; Table[a[n], {n, 0, 9}] (* _Jean-François Alcover_, Feb 13 2015 *) %o A029758 (PARI) {a(n) = if( n<2, n>=0, a(n-1) * (a(n-1) + 2*a(n-2)))}; /* _Michael Somos_, Feb 07 2004 */ %Y A029758 Cf. A029846. %Y A029758 Row sums of A143897. - _Alois P. Heinz_, Jun 01 2009 %K A029758 easy,nonn %O A029758 0,3 %A A029758 _Don Knuth_ %E A029758 More terms from _N. J. A. Sloane_.