OFFSET
0,1
COMMENTS
Previous name was : For N=Sum a(i).2^i, a(i)=0,1, set D(N)/D(2)=Sum i.a(i).2^(i-1); sequence gives n-th derivative of 16.
Actually, it appears that f(n) for n=0, 1, 2, ... gives 0, 0, 1, 1, 4, 4, 5, 5, 12, 12, 13, 13, 16, 16, 17, 17, 32, 32, 33, 33, 36, ... that is A136013. - Michel Marcus, Jul 18 2013 [This now follows from the comments in A136013. - Pontus von Brömssen, Sep 06 2020]
FORMULA
a(n) = 16*A007823(n). - Pontus von Brömssen, Sep 06 2020
PROG
(PARI) D(n) = {b = binary(n); lb = #b; rb = vector(lb, i, b[lb-i+1]); return(sum (i=0, lb-1, i*2^(i-1)*rb[i+1])); }
lista(nn) = {m = 16; for (n=0, nn, print1(m, ", "); m = D(m); ); } \\ Michel Marcus, Jul 18 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralph Buchholz [ ralph(AT)defcen.gov.au ], Leisa Condie
EXTENSIONS
Edited by Michel Marcus, Jul 18 2013
STATUS
approved