Let f(n)=Floor[Mod[10^k*(7/(4*k + 1) - 6/(4*k + 3) - 1/(4*k + 5)), 3]]; M0 = {{0, 1}, {1, 1/2}}; M = {{0, 2}, {2, 1}}; as Mh=M0.M.(M0+I*f[n]); v[(n)=Mh.v(n-1), then a(n) is the first element of v.
A152270
Let f(n)=Floor[Mod[10^k*(7/(4*k + 1) - 6/(4*k + 3) - 1/(4*k + 5)), 3]]; M0 = {{0, 1}, {1, 1/2}}; M = {{0, 2}, {2, 1}}; as Mh=M0.M.(M0+I*f[n]); v[(n)=Mh.v(n-1), then a(n) is the first element of v.
Terms
- a(0) =0a(1) =1a(2) =-3a(3) =-13a(4) =15a(5) =-37a(6) =23a(7) =-125a(8) =-467a(9) =-2269a(10) =-2269a(11) =-12147a(12) =-66877a(13) =-66877a(14) =-66877a(15) =-66877a(16) =-370963a(17) =-2061725a(18) =-11464371a(19) =17899313a(20) =99555423a(21) =99555423a(22) =-155471765a(23) =-864636987a(24) =1350136841a(25) =1350136841a(26) =-2108411107a(27) =-2108411107
External references
- oeis: A152270