cp's OEIS Frontend

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.

Showing 1-2 of 2 results.

A014535 Number of B-trees of order 3 with n leaves.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 2, 3, 4, 5, 8, 14, 23, 32, 43, 63, 97, 149, 224, 332, 489, 727, 1116, 1776, 2897, 4782, 7895, 12909, 20752, 32670, 50426, 76767, 116206, 176289, 269615, 416774, 650647, 1023035, 1614864, 2551783, 4028217, 6344749, 9966479, 15614300, 24407844
Offset: 0

Views

Author

Keywords

Comments

A B-tree of order m is an ordered tree such that every node has at most m children, the root has at least 2 children, every node except for the root has 0 or at least m/2 children, all end-nodes are at the same level.
Lim_{n->infinity} a(n)^(1/n) = (1+sqrt(5))/2, for more detailed asymptotics see Odlyzko 1982 reference. - Vaclav Kotesovec, Jul 29 2014
From Jianing Song, Nov 02 2019: (Start)
For n > 0, a(n) is also number of length-n sequences (d_1, d_2, ..., d_n) such that: (a) d_1 = 0, d_i > 0 for 2 <= i <= n; (b) for all 1 <= t <= n, at least one of d_i and d_(i+1) is equal to M = max_{t=1..n} d_t; (c) for all 1 <= i < j <= n+1, if max{d_i, d_j} < d_t for i < t < j, then between d_i and d_j there are exactly 1 or 2 terms equal to max{d_i, d_j} + 1. Here d_(n+1) = d_1. For example, for n = 8 there are four such sequences: (0, 3, 2, 3, 1, 3, 2, 3), (0, 2, 2, 1, 2, 2, 1, 2), (0, 2, 2, 1, 2, 1, 2, 2), (0, 2, 1, 2, 2, 1, 2, 2). For convention let's call such sequences "R sequences with largest term M".
Note that for M > 0, (0, d_2, d_3, ..., d_n1, 1, e_2, e_3, ..., e_n2) (d_t, e_u > 1) is an "R sequence with largest term M" if and only if (0, d_2-1, d_3-1, ..., d_n1-1) and (0, e_2-1, e_3-1, ..., e_n2-1) are both "R sequences with largest term M-1"; similarly, (0, d_2, d_3, ..., d_n1, 1, e_2, e_3, ..., e_n2, 1, f_2, f_3, ..., f_n3) (d_t, e_u, f_v > 1) is an "R sequence with largest term M" if and only if (0, d_2-1, d_3-1, ..., d_n1-1), (0, e_2-1, e_3-1, ..., e_n2-1) and (0, f_2-1, f_3-1, ..., f_n3-1) are all "R sequences with largest term M-1". From this we can see that each "R sequence with largest term M" of length-n is isomorphic to a B-tree of order 3 with M levels and n leaves, where the root is counted as the 0th level.
The condition (c) above is equivalent to: (c') there are no three or more consecutive M's in the sequence; if we eliminate all the M's, we get a shorter "R sequence with largest term M-1".
The number of B-trees of order 3 with M levels or the number of "R sequences with largest term M" is given by A125295(M). (End)

References

  • Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 5.6 Otter's tree enumeration constants, p. 311.

Crossrefs

Cf. A125295.

Programs

  • Maple
    spec := [ B, {B=Union(Z, Subst(M, B)), M=Union(Prod(Z,Z),Prod(Z,Z,Z))} ]: seq(combstruct[count](spec, size=n), n=0..36); # Paul Zimmermann
  • Mathematica
    terms = 45; A[] = 0; Do[A[x] = x + A[x^2 + x^3] + O[x]^terms // Normal, terms]; CoefficientList[A[x], x] (* Jean-François Alcover, Oct 23 2012, from g.f., updated Jan 10 2018 *)
    a[0] = 0; a[1] = 1; a[n_] := a[n] = Sum[Binomial[k, 3*k - n]*a[k], {k, Ceiling[n/3], Floor[n/2]}]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Jul 29 2014 *)
  • PARI
    a(n) = if(n, my(v=vector(n)); v[1]=1; for(i=2, n, v[i]=sum(k=ceil(i/3), i\2, binomial(k, 3*k - i)*v[k])); v[n], 0) \\ Jianing Song, Nov 02 2019

Formula

G.f. satisfies A(x) = x + A(x^2+x^3).
a(0) = 0, a(1) = 1, a(n) = Sum_{k=ceiling(n/3)..floor(n/2)} binomial(k, 3*k - n)*a(k) - Jean-François Alcover, Jul 29 2014, after Steven Finch.

A308155 Number of (undirected) cycles in the n-Hanoi graph.

Original entry on oeis.org

1, 11, 1761, 6560212131, 282779810128722710004851715561, 22612323802416302740572466532825193607455652273991093701620185148186749274755003474250171
Offset: 1

Views

Author

Eric W. Weisstein, May 14 2019

Keywords

Comments

a(7) has 266 decimal digits and a(8) has 796 decimal digits. - Andrew Howroyd, Sep 10 2019
Also the number of chordless cycles in the (n+1)-Hanoi graph. - Eric W. Weisstein, May 23 2023

Crossrefs

Programs

  • Mathematica
    a[0] = 1; a[n_] := a[n] = a[n - 1]^2 (a[n - 1] + 1); Table[Sum[3^(n - k) a[k - 1]^3, {k, n}], {n, 6}] (* Eric W. Weisstein, May 23 2023 *)
  • PARI
    a(n)={my(s=1, d=1); for(i=2, n, d=d^2+d^3; s = 3*s + d^3); s} \\ Andrew Howroyd, Sep 10 2019

Formula

a(n) = Sum_{k=1..n} 3^(n-k)*A125295(k-1)^3. - Andrew Howroyd, Sep 10 2019

Extensions

a(4)-a(6) from Andrew Howroyd, Sep 10 2019
Showing 1-2 of 2 results.