OFFSET
0,2
COMMENTS
In the tiling {5,3,4} of 3-dimensional hyperbolic space, the number of regular dodecahedra with right angles of the n generation which are contained in an eighth of space (intersection of three pairwise perpendicular hyperplanes which are supported by the faces of a dodecahedron at a vertex).
Let beta be the greatest real root of the polynomial which is defined by the above recurrent equation. Consider the representation of positive numbers in the basis beta. Then the language which consists of the maximal representations of positive numbers is neither regular nor context-free (M. Margenstern's theorem, see second reference, above).
REFERENCES
M. Margenstern and G. Skordev, Tools for devising cellular automata in the 3-dimensional hyperbolic space, I - the geometrical part, proceedings of SCI'2002, Orlando, Florida, Jul 14-18, (2002), vol. XI, 542-547 Vol. 100 (1993), pp. 1-25.
M. Margenstern and G. Skordev, Tools for devising cellular automata in the 3-dimensional hyperbolic space, II - the numeric algorithms, proceedings of SCI'2002, Orlando, Florida, Jul 14-18, (2002), vol. XI, 548-552
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
M. Margenstern, Number of polyhedra at distance n in {5,3,4}
Index entries for linear recurrences with constant coefficients, signature (9,-9,1).
FORMULA
a(n+3) = 9*a(n+2) - 9*a(n+1) + a(n); initial values: a(0) = 1, a(1) = 9, a(2) = 72
a(n) = Sum_{k=0..n} S(k, 8) with S(k, x) = U(k, x/2) Chebyshev's polynomials of the second kind.
G.f.: 1/((1-x)*(1 - 8*x + x^2)) = 1/(1 - 9*x + 9*x^2 - x^3).
a(n) = 8*a(n-1) - a(n-2) + 1; a(-1)=0, a(0)=1.
a(n) = (S(n+1, 8) - S(n, 8) - 1)/6, n >= 0.
MATHEMATICA
Join[{a=1, b=9}, Table[c=8*b-a+1; a=b; b=c, {n, 60}]] (* Vladimir Joseph Stephan Orlovsky, Jan 19 2011 *)
LinearRecurrence[{9, -9, 1}, {1, 9, 72}, 30] (* Harvey P. Dale, Mar 13 2014 *)
CoefficientList[Series[1/((1 - x) (1 - 8 x + x^2)), {x, 0, 40}], x] (* Vincenzo Librandi, Mar 15 2014 *)
CROSSREFS
KEYWORD
nice,easy,nonn
AUTHOR
Maurice MARGENSTERN (margens(AT)lita.univ-metz.fr), Nov 14 2002
EXTENSIONS
Extension and Chebyshev comments from Wolfdieter Lang, Aug 31 2004
STATUS
approved