This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A081432 #15 Jan 30 2023 12:29:00 %S A081432 0,1,1,3,1,5,3,7,1,9,5,31,3,11,7,51,1,71,9,52,5,12,31,92,3,91,11,72,7, %T A081432 32,51,13,1,33,71,94,9,14,52,75,5,73,12,35,31,54,92,16,3,53,91,15,11, %U A081432 34,72,95,7,93,32,55,51,74,13,36,1,56,33,79,71,18,94,311,9,37,14 %N A081432 RevDecimal(RevBinary(n)), where RevDecimal(m) is the decimal reversal of m (A004086) and RevBinary(m) is the binary reversal of m (A030101). %H A081432 Harvey P. Dale, <a href="/A081432/b081432.txt">Table of n, a(n) for n = 0..1000</a> %F A081432 a(n) = A004086(A030101(n)). - _Michel Marcus_, Jan 30 2023 %t A081432 IntegerReverse[IntegerReverse[Range[0,80],2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 03 2017 *) %o A081432 (Python) %o A081432 def a(n): return int(str(int(bin(n)[:1:-1], 2))[::-1]) %o A081432 print([a(n) for n in range(75)]) # _Michael S. Branicky_, Jan 30 2023 %o A081432 (PARI) a(n) = fromdigits(Vecrev(digits(fromdigits(Vecrev(binary(n)), 2)))); \\ _Michel Marcus_, Jan 30 2023 %Y A081432 Cf. A030101, A004086. %Y A081432 Cf. A081431, A081433, A007088. %K A081432 nonn,base %O A081432 0,4 %A A081432 _Reinhard Zumkeller_, Mar 20 2003