OFFSET
0,8
MATHEMATICA
M={{0, 1}, {1, 1}};
A[0]:={{0, 1}, {1, 1}};
A[1]=M.A[0]
A[2]=M.A[1]
AA[0]:={{A[0], A[1]}, {A[1], A[2]}}
MatrixForm[M.AA[0]]
MatrixForm[AA[0]]
a=Flatten[Table[MatrixPower[M, n].AA[0], {n, 0, 12}]]
Dimensions[a]
PROG
(PARI) a(n)=fibonacci(n\16 + hammingweight(n%16)); \\ Andrew Howroyd, May 16 2021
CROSSREFS
KEYWORD
nonn,easy,less,dumb
AUTHOR
Roger L. Bagula, Sep 20 2004
EXTENSIONS
New name and edited, Joerg Arndt, May 16 2021
STATUS
approved