A071998 Write n in binary, interpret that as a decimal number, convert back to binary.

0, 1, 1010, 1011, 1100100, 1100101, 1101110, 1101111, 1111101000, 1111101001, 1111110010, 1111110011, 10001001100, 10001001101, 10001010110, 10001010111, 10011100010000, 10011100010001, 10011100011010, 10011100011011

Offset

0,3

Links

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

Formula

a(n)=A007088(A007088(n)).

Example

n=13: [13]D = [1101]B ==> [1101]D = [10001001101]B = a(13).

Mathematica

Table[ FromDigits[ IntegerDigits[ FromDigits[ IntegerDigits[n, 2]], 2]], {n, 1, 20}]

Prog

(PARI) a(n)=subst(Pol(binary(subst(Pol(binary(n)), x, 10))), x, 10)

Crossrefs

Cf. A007088.

Sequence in context: A123156 A163278 A082461 * A043640 A286138 A145808

Adjacent sequences: A071995 A071996 A071997 * A071999 A072000 A072001

Keyword

nonn,base

Author

Reinhard Zumkeller, Jun 18 2002

Status

approved