A211010 Value on the axis "x" of the endpoint of the structure of A211000 at n-th stage.
0, 1, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3, 2, 3, 4, 3
Offset: 0
Links
- Paolo Xausa, Table of n, a(n) for n = 0..9999
- Index entries for linear recurrences with constant coefficients, signature (1,-1,1).
Crossrefs
Programs
-
Mathematica
A211010[nmax_]:=PadRight[{0,1,2,3},nmax+1,{4,3,2,3}]; A211010[100] (* Paolo Xausa, Jan 06 2023 *)
Formula
From Colin Barker, Sep 15 2013: (Start)
a(n) = (6+(-i)^n+i^n)/2 where n > 1, i=sqrt(-1).
a(n) = a(n-1) - a(n-2) + a(n-3) for n > 4.
G.f.: -x*(x+1)*(2*x^2+1) / ((x-1)*(x^2+1)). (End)
Comments