OFFSET
0,4
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
a[n_] := Sum[DigitCount[i, 2, 0]*DigitCount[n - i, 2, 1], {i, 0, n}]; Array[a, 100, 0] (* Amiram Eldar, Jul 16 2023 *)
PROG
(Haskell)
a157793 n = a157793_list !! n
a157793_list = f [head a023416_list] $ tail a023416_list where
f zs (x:xs) = (sum $ zipWith (*) zs a000120_list) : f (x:zs) xs
-- Reinhard Zumkeller, Mar 31 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 06 2009
STATUS
approved