A101555 Convolution of A010060 and A000244.
0, 1, 4, 12, 37, 111, 333, 1000, 3001, 9003, 27009, 81028, 243084, 729253, 2187760, 6563280, 19689841, 59069523, 177208569, 531625708, 1594877124, 4784631373, 14353894120, 43061682360, 129185047080, 387555141241, 1162665423724
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[Sum[ThueMorse[n - k]*3^k, {k, 0, n}], {n, 0, 100}] (* G. C. Greubel, May 23 2018 *)
Formula
a(n) = Sum_{k=0..n} A010060(n-k) * 3^k.
Comments