|
%I #7 May 06 2019 08:55:55
%S 1,4,11,27,66,161,389,940,2271,5483,13238,31961,77161,186284,449731,
%T 1085747,2621226,6328201,15277629,36883460,89044551,214972563,
%U 518989678,1252951921,3024893521,7302738964,17630371451,42563481867,102757335186
%N Expansion of (x+1)*(x^3-x^2-x-1)/((1-x)*(x^2+2*x-1)*(x^2+x+1)).
%C A floretion-generated sequence calculated using the same rules given for A108618 with initial seed x = - .5'ii' - .5'jj' + .5'kk' - .5'jk' - .5'kj' + .5e; version: "tes". Note: replacing "tessum(*)seq" with "tesseq" in the program code gives A001333.
%H Colin Barker, <a href="/A108985/b108985.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,1,-2,-1).
%F a(n) = 2*a(n-1) + a(n-2) + a(n-3) - 2*a(n-4) - a(n-5) for n>4. - _Colin Barker_, May 06 2019
%o 2tessum(*)seq[ - .5'ii' - .5'jj' + .5'kk' - .5'jk' - .5'kj' + .5e] = 2tessum(*)seq[(- .5'i + .5'j - .5i' + .5j' - 'kk' - .5'ik' - .5'jk' - .5'ki' - .5'kj')*(.5'i + .5i')]
%o (PARI) Vec((1 + x)*(1 + x + x^2 - x^3) / ((1 - x)*(1 + x + x^2)*(1 - 2*x - x^2)) + O(x^30)) \\ _Colin Barker_, May 06 2019
%Y Cf. A108618, A108986, A108987, A108988.
%K easy,nonn
%O 0,2
%A _Creighton Dement_, Jun 15 2005
|
