A249579 List of quadruples (r,s,t,u): the matrix M = [[4,12,9][2,5,3][1,2,1]] is raised to successive powers, then (r,s,t,u) are the square roots of M[3,1], M[3,3], M[1,1], M[1,3] respectively.
0, 1, 1, 0, 1, 1, 2, 3, 3, 4, 7, 9, 10, 13, 23, 30, 33, 43, 76, 99, 109, 142, 251, 327, 360, 469, 829, 1080, 1189, 1549, 2738, 3567, 3927, 5116, 9043, 11781, 12970, 16897, 29867, 38910, 42837, 55807, 98644, 128511, 141481, 184318, 325799, 424443, 467280
Offset: 0
Examples
M^0 = [[1,0,0][0,1,0][0,0,1]]: r = sqrt(M[3,1]) = a(0) = 0, s = sqrt(M[3,3]) = a(1) = 1, t = sqrt(M[1,1]) = a(2) = 1, u = sqrt(M[1,3])u = a(3) = 0. M^2 = [[49, 126, 81][21, 55, 36][9, 24, 16]]: r = sqrt(M[3, 1]) = a(8) = 3, s = sqrt(M[3, 3]) = a(9) = 4, t = sqrt(M[1, 1]) = a(10) = 7, u = sqrt(M[1, 3]) = a(11) = 9.
Links
- Colin Barker, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (0,0,0,3,0,0,0,1).
Programs
-
Magma
I:=[0,1,1,0,1,1,2,3]; [n le 8 select I[n] else 3*Self(n-4)+Self(n-8): n in [1..50]]; // Vincenzo Librandi, Nov 14 2014
-
Mathematica
CoefficientList[Series[- x (3 x^6 - x^5 - 2 x^4 + x^3 + x + 1) / (x^8 + 3 x^4 - 1), {x, 0, 50}], x] (* Vincenzo Librandi, Nov 14 2014 *)
-
PARI
concat(0, Vec(-x*(3*x^6-x^5-2*x^4+x^3+x+1)/(x^8+3*x^4-1) + O(x^100))) \\ Colin Barker, Nov 13 2014
Formula
Some identities:
a4(n-1) + a(4n) = a(4n+1),
a(4n) + a(4n+1) = a(4n+2),
3a(4n) = a(4n+3).
a(n) = 3*a(n-4)+a(n-8). - Colin Barker, Nov 13 2014
G.f.: -x*(3*x^6-x^5-2*x^4+x^3+x+1) / (x^8+3*x^4-1). - Colin Barker, Nov 13 2014
Extensions
More terms from Colin Barker, Nov 13 2014
Comments