Thanks to everyone who made a donation during our annual appeal! To see the list of donors, or make a donation, see the OEIS Foundation home page.
1,1
Table of n, a(n) for n=1..49.
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.
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);
Cf. A220466
Sequence in context: A301937 A185139 A300786 * A033152 A281178 A280461
Adjacent sequences: A182238 A182239 A182240 * A182242 A182243 A182244
nonn,easy
Johannes W. Meijer, Dec 24 2012
approved