A137776 Interleave A038504 with A131577.
0, 0, 1, 1, 2, 2, 3, 4, 4, 8, 6, 16, 12, 32, 28, 64, 64, 128, 136, 256, 272, 512, 528, 1024, 1024, 2048, 2016, 4096, 4032, 8192, 8128, 16384, 16384, 32768, 32896, 65536, 65792, 131072, 131328, 262144, 262144, 524288, 523776, 1048576, 1047552, 2097152, 2096128
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (0,4,0,-6,0,4).
Programs
-
Mathematica
LinearRecurrence[{0, 4, 0, -6, 0, 4}, {0, 0, 1, 1, 2, 2, 3, 4}, 45] (* Amiram Eldar, Sep 09 2024 *)