OFFSET
0,5
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
Join[{0}, Plus @@@ Partition[Table[n + 1 - 2^DigitCount[n, 2, 1], {n, 0, 100}], 2, 1]] (* Amiram Eldar, Jul 28 2023 *)
PROG
(Haskell)
a249304 n = if n == 0 then 0 else a048967 n + a048967 (n - 1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 14 2014
STATUS
approved