%I M3770 #44 Oct 26 2023 22:41:54
%S 0,1,-1,1,-1,-1,5,-8,7,1,-19,43,-55,27,64,-211,343,-307,-85,911,-1919,
%T 2344,-989,-3151,9625,-15049,12609,5671,-42496,85609,-100225,33977,
%U 154007,-437009,657901,-513512,-335665,1974097,-3808891,4265379
%N A sixth-order linear divisibility sequence: a(n+6) = -3*a(n+5) - 5*a(n+4) - 5*a(n+3) - 5*a(n+2) - 3*a(n+1) - a(n).
%C This is a divisibility sequence. If d divides n then a(d) divides a(n). - _Michael Somos_, Aug 02 2002
%C This is a generalized Lucas sequence of order 3 as defined by Roettger, Section 3.3. - _Peter Bala_, Mar 04 2014
%C The sequence is denoted by C(n) and its expression in terms of the roots of the cubic x^3 + x^2 - 1 = 0 is given in Williams 1998 page 454. Table 17.4.1 Values of C(n) for n=-2 to n=30 is on page 455 and he notes that a(20) == a(25) == 0 (mod 101). - _Michael Somos_, Nov 13 2018
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D H. C. Williams, Edouard Lucas and Primality Testing, Wiley, 1998, p. 455. Math. Rev. 2000b:11139
%H Vincenzo Librandi, <a href="/A005120/b005120.txt">Table of n, a(n) for n = 0..1000</a>
%H M. Duboue, <a href="http://dx.doi.org/10.1016/S0195-6698(83)80013-4">Une suite récurrente remarquable</a>, Europ. J. Combin., 4 (1983), 205-214.
%H E. L. F. Roettger, <a href="http://people.ucalgary.ca/~hwilliam/files/A_Cubic_Extention_of_the_Lucas_Functions.pdf">A cubic extension of the Lucas functions</a>, Thesis, Dept. of Mathematics and Statistics, Univ. of Calgary, 2009.
%H <a href="/index/Di#divseq">Index to divisibility sequences</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (-3,-5,-5,-5,-3,-1).
%F G.f.: x * (1 + 2*x + 3*x^2 + 2*x^3 + x^4) / (1 + 3*x + 5*x^2 + 5*x^3 + 5*x^4 + 3*x^5 + x^6). - _Michael Somos_, Aug 02 2002
%F a(n) = (a^n - b^n)*(b^n - c^n)*(c^n - a^n)/((a - b)*(b - c)*(c - a)), where a, b, c denote the roots of the cubic equation x^3 + x^2 - 1 = 0. - _Peter Bala_, Mar 04 2014
%F a(n) = -3*a(n-1) - 5*a(n-2) - 5*a(n-3) - 5*a(n-4) - 3*a(n-5) - a(n-6) for n>5. - _Vincenzo Librandi_, Jun 20 2014
%F a(n) = -a(-n) for all n in Z. - _Michael Somos_, Nov 13 2018
%e G.f. = x - x^2 + x^3 - x^4 - x^5 + 5*x^6 - 8*x^7 + 7*x^8 + ... - _Michael Somos_, Nov 13 2018
%t LinearRecurrence[{-3,-5,-5,-5,-3,-1},{0,1,-1,1,-1,-1},40] (* _Harvey P. Dale_, Jun 19 2014 *)
%t CoefficientList[Series[x (1 + 2 x + 3 x^2 + 2 x^3 + x^4)/(1 + 3 x + 5 x^2 + 5 x^3 + 5 x^4 + 3 x^5 + x^6), {x, 0, 40}], x] (* _Vincenzo Librandi_, Jun 20 2014 *)
%t a[ n_] := Sign[n] SeriesCoefficient[ x (1 + x + x^2)^2 / (1 + 3 x + 5 x^2 + 5 x^3 + 5 x^4 + 3 x^5 + x^6), {x, 0, Abs @ n}]; (* _Michael Somos_, Nov 13 2018 *)
%t a[ n_] := Module[ {a, b, c}, {a, b, c} = Table[ Root[#^3 + #^2 - 1 &, k], {k, 3}]; (a^n - b^n) (b^n - c^n) (c^n - a^n) / ((a - b) (b - c) (c - a)) // FullSimplify]; (* _Michael Somos_, Nov 13 2018 *)
%o (PARI) {a(n) = sign(n) * polcoeff( x*(1 + 2*(x + x^3) + 3*x^2 + x^4) / (1 + 3*(x + x^5) + 5*(x^2 + x^3 + x^4) + x^6) + x * O(x^abs(n)), abs(n))}; /* _Michael Somos_, Aug 02 2002 */
%o (Magma) I:=[0,1,-1,1,-1,-1]; [n le 6 select I[n] else -3*Self(n-1)-5*Self(n-2)-5*Self(n-3)-5*Self(n-4)-3*Self(n-5)-Self(n-6): n in [1..40]]; // _Vincenzo Librandi_, Jun 20 2014
%Y Cf. A001608.
%K sign,easy
%O 0,7
%A _N. J. A. Sloane_
%E Edited by _Michael Somos_, Aug 02 2002