0,3

a(a(n))=a(n); a(A090077(n))=A090077(a(n))=A090079(n).

Table of n, a(n) for n=0..73.

Index entries for sequences related to binary expansion of n

100 -> '1100100' -> 11[00]1[00] -> 11[0]1[0] -> '11010' ->

26=a(100).

(PARI) a(n)=my(v=binary(n), t); for(i=1, #v, if(v[i], t+=t+1, t%2, t+=t)); t \\ Charles R Greathouse IV, Aug 17 2016

Cf. A007088, A090079, A090077.

Sequence in context: A072775 A304768 A243057 * A259445 A080979 A287620

Adjacent sequences: A090075 A090076 A090077 * A090079 A090080 A090081

nonn,base,easy

Reinhard Zumkeller, Nov 20 2003

approved