OFFSET
1,1
FORMULA
a(n) = A161151(2*n)/2
a((2*n-1)*2^p) = 2^(2*p+2)*n - 2*2^(2*p) + 2^p, p >= 0.
MAPLE
nmax:=49: for p from 0 to ceil(simplify(log[2](nmax))) do for n from 1 to ceil(nmax/(p+2)) do a((2*n-1)*2^p) := 2^(2*p+2)*n - 2*2^(2*p) + 2^p od: od: seq(a(n), n=1..nmax);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Johannes W. Meijer, Dec 24 2012
STATUS
approved