|
| |
|
|
A071998
|
|
Write n in binary, interpret that as a decimal number, convert back to binary.
|
|
1
| |
|
|
0, 1, 1010, 1011, 1100100, 1100101, 1101110, 1101111, 1111101000, 1111101001, 1111110010, 1111110011, 10001001100, 10001001101, 10001010110, 10001010111, 10011100010000, 10011100010001, 10011100011010, 10011100011011
(list; graph; refs; listen; history; internal format)
|
|
|
|
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}]
|
|
|
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 A145808 A157010
Adjacent sequences: A071995 A071996 A071997 * A071999 A072000 A072001
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 18 2002
|
| |
|
|
