A228937 Expansion of (1+2*x+30*x^2+13*x^3-13*x^5-30*x^6-2*x^7-x^8)/(1+2*x^4+x^8).
1, 2, 30, 13, -2, -17, -90, -28, 2, 32, 150, 43, -2, -47, -210, -58, 2, 62, 270, 73, -2, -77, -330, -88, 2, 92, 390, 103, -2, -107, -450, -118, 2, 122, 510, 133, -2, -137, -570, -148, 2, 152, 630, 163, -2, -167, -690, -178, 2, 182
Offset: 0
Examples
exp(2/5)=1+1/(2+1/(30+1/(13+1/(-2+1/(-17+1/(-90+1/(-28+1/(2+...)))))))), or equivalently: exp(2/5)=1+1/(2+1/(30+1/(13-1/(2+1/(17+1/(90+1/(28-1/(2+...)))))))).
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,0,-2,0,0,0,-1).
Programs
-
Maple
SCF := proc (n, q::posint)::list; local L, i, z; Digits := 10000; L := [round(n)]; z := n; for i from 2 to q do if z = op(-1, L) then break end if; z := 1/(z-op(-1, L)); L := [op(L), round(z)] end do; return L end proc SCF(exp(2/5), 50)
-
Mathematica
Join[{1}, LinearRecurrence[{0, 0, 0, -2, 0, 0, 0, -1}, {2, 30, 13, -2, -17, -90, -28, 2}, 50]] (* Bruno Berselli, Nov 06 2013 *)
Formula
G.f.: (1+2*x+30*x^2+13*x^3-13*x^5-30*x^6-2*x^7-x^8)/(1+2*x^4+x^8).
a(0)=1, a(1)=2, a(2)=30, a(3)=13, a(4)=-2, a(5)=-17, a(6)=-90, a(7)=-28, a(8)=2; for n>8, a(n) = -2*a(n-4) -a(n-8).
a(0)=1 , a(4m+1) = (-1)^m*(2+15*m), a(4m+3) = (-1)^m*(13+15*m), a(4m+2) = (-1)^m*(30+60*m), a(4m+4) = 2*(-1)^(m+1) for m>=0.
Comments