|
Search: id:A071998
|
|
|
| A071998 |
|
Write n in binary, interpret that as a decimal number, convert back to binary. |
|
+0
2
|
|
| 0, 1, 1010, 1011, 1100100, 1100101, 1101110, 1101111, 1111101000, 1111101001, 1111110010, 1111110011, 10001001100, 10001001101, 10001010110, 10001010111, 10011100010000, 10011100010001, 10011100011010, 10011100011011
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
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}]
|
|
PROGRAM
|
(PARI) a(n)=subst(Pol(binary(subst(Pol(binary(n)), x, 10))), x, 10)
|
|
CROSSREFS
|
Cf. A007088.
Sequence in context: A123156 A163278 A082461 this_sequence A043640 A145808 A157010
Adjacent sequences: A071995 A071996 A071997 this_sequence A071999 A072000 A072001
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 18 2002
|
|
|
Search completed in 0.002 seconds
|
