login
A081431
RevBinary(RevDecimal(n)), where RevBinary(m) is the binary reversal of m (A030101) and RevDecimal(m) is the decimal reversal of m (A004086).
3
0, 1, 1, 3, 1, 5, 3, 7, 1, 9, 1, 13, 21, 31, 37, 51, 47, 113, 69, 109, 1, 3, 13, 1, 21, 11, 31, 9, 37, 29, 3, 11, 29, 33, 53, 43, 63, 73, 101, 93, 1, 7, 3, 17, 13, 27, 1, 41, 21, 61, 5, 15, 19, 49, 45, 59, 65, 105, 85, 125, 3, 1, 11, 9, 29, 7, 33, 25, 53, 3, 7, 17, 27, 41
OFFSET
0,4
LINKS
FORMULA
a(n) = A030101(A004086(n)). - Michel Marcus, Jan 30 2023
MATHEMATICA
Table[IntegerReverse[IntegerReverse[n], 2], {n, 0, 80}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 03 2018 *)
PROG
(Python)
def a(n): return int(bin(int(str(n)[::-1]))[:1:-1], 2)
print([a(n) for n in range(74)]) # Michael S. Branicky, Jan 30 2023
(PARI) a(n) = fromdigits(Vecrev(binary(fromdigits(Vecrev(digits(n))))), 2); \\ Michel Marcus, Jan 30 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 20 2003
STATUS
approved