OFFSET
1,2
COMMENTS
A228085(m-1) gives the number of times m occurs in this sequence.
LINKS
MAPLE
a:= n-> n+add(i, i=Bits[Split](n-1)):
seq(a(n), n=1..82); # Alois P. Heinz, Jul 05 2024
MATHEMATICA
Table[n+Total[IntegerDigits[n-1, 2]], {n, 100}] (* Harvey P. Dale, May 20 2015 *)
PROG
(PARI) a(n) = n + hammingweight(n-1); \\ Michel Marcus, Jul 05 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 23 2013
STATUS
approved