A187070 Let i be in {1,2,3}, let r >= 0 be an integer and n=2*r+i-1. Then a(n)=a(2*r+i-1) gives the quantity of H_(7,3,0) tiles in a subdivided H_(7,i,r) tile after linear scaling by the factor x^r, where x=sqrt((2*cos(Pi/7))^2-1).
0, 0, 1, 1, 1, 2, 3, 5, 6, 11, 14, 25, 31, 56, 70, 126, 157, 283, 353, 636, 793, 1429, 1782, 3211, 4004, 7215, 8997, 16212, 20216, 36428, 45425, 81853, 102069, 183922, 229347, 413269, 515338, 928607, 1157954, 2086561, 2601899
Offset: 0
Examples
Suppose r=3. Then C_r = C_3 = {a(2*r),a(2*r+1),a(2*r+2)} = {a(6),a(7),a(8)} = {3,5,6}, corresponding to the entries in the third column of M = (U_2)^3 = (1 2 3) (2 4 5) (3 5 6). Choose i=2 and set n=2*r+i-1. Then a(n) = a(2*r+i-1) = a(6+2-1) = a(7) = 5, which equals the entry in row 2 and column 3 of M. Hence a subdivided H_(7,2,3) tile should contain a(7) = m_(2,3) = 5 H_(7,3,0) tiles.
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
- L. Edson Jeffery, Unit-primitive matrices
- Roman Witula, D. Slota and A. Warzynski, Quasi-Fibonacci Numbers of the Seventh Order, J. Integer Seq., 9 (2006), Article 06.4.3.
- Index entries for linear recurrences with constant coefficients, signature (0,2,0,1,0,-1).
Programs
-
Mathematica
a[0] = a[1] = 0; a[2] = a[3] = a[4] = 1; a[?Negative] = 0; a[n] := a[n] = 2*a[n-2] + a[n-4] - a[n-6]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Jan 02 2013 *)
-
PARI
x='x+O('x^50); concat([0,0], Vec(x^2*(1+x-x^2)/(1-2*x^2-x^4+x^6))) \\ G. C. Greubel, Jul 05 2017
Formula
Recurrence: a(n) = 2*a(n-2) + a(n-4) - a(n-6).
G.f.: x^2*(1+x-x^2)/(1-2*x^2-x^4+x^6).
Closed-form: a(n) = (1/14)*[[X_1+Y_1*(-1)^(n-1)]*[(w_2)^2-(w_3)^2]*(w_1)^(n-1)+[X_2+Y_2*(-1)^(n-1)]*[(w_3)^2-(w_1)^2]*(w_2)^(n-1)+[X_3+Y_3*(-1)^(n-1)]*[(w_1)^2-(w_2)^2]*(w_3)^(n-1)], where w_k = sqrt[(2cos(k*Pi/7))^2-1], X_k = (w_k)^3+(w_k)^2-w_k and Y_k = -(w_k)^3+(w_k)^2+w_k, k=1,2,3.
Comments