OFFSET
0,7
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
{0}~Join~Table[Floor[n/IntegerLength[n, 2]], {n, 84}] (* Michael De Vlieger, Dec 01 2015 *)
PROG
(Python)
for n in range(88): print str(n // (len(bin(n))-2))+', ',
(PARI) a(n) = if (n, n\#binary(n)); \\ Michel Marcus, Dec 01 2015
(Haskell)
a264749 n = div n $ a070939 n -- Reinhard Zumkeller, Dec 05 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Nov 23 2015
STATUS
approved