Let M = {{0, 1}, {1/3, 2}}; w[1] = {0, 1}; w[n] = M.w[n - 1]; then a(n) = w[n][[1]]*3^Floor[2*(n - 1)/3].
A116951
Let M = {{0, 1}, {1/3, 2}}; w[1] = {0, 1}; w[n] = M.w[n - 1]; then a(n) = w[n][[1]]*3^Floor[2*(n - 1)/3].
Terms
- a(0) =0a(1) =1a(2) =6a(3) =39a(4) =84a(5) =543a(6) =3510a(7) =7563a(8) =48888a(9) =316017a(10) =680922a(11) =4401549a(12) =28452060a(13) =61305669a(14) =396286074a(15) =2561633451a(16) =5519552976a(17) =35678951307a(18) =230632366770a(19) =496943684847
External references
- oeis: A116951