editing
approved
editing
approved
M = {{1, 1, 1, 1}, {1, 1, 0, 0}, {1, 0, 1, 0}, {1, 0, 0, 1}}; v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M.v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 25}]
a(n) = (2/sqrt(3))*( [1+sqrt(3)]^n - [1-sqrt(3)]^n ), n>=0. - Paolo P. Lava, Jun 10 2008
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
nonn,easy,less,changed
Let M = {{1, 1, 1, 1}, {1, 1, 0, 0}, {1, 0, 1, 0}, {1, 0, 0, 1}}; v[1] = {0, 1, 1, 2}; v[n] = M.v[n - 1]; then a(n) =v[n][[1]]
proposed
editing
editing
proposed
Martin Burtscher, Igor Szczyrba, RafaĆ Szczyrba, <a href="http://www.emis.de/journals/JIS/VOL18/Szczyrba/sz3.pdfhtml">Analytic Representations of the n-anacci Constants and Generalizations Thereof</a>, Journal of Integer Sequences, Vol. 18 (2015), Article 15.4.5.
proposed
editing