A264749 a(n) = floor(n/BL(n)) where BL(n) = A070939(n) is the binary length of n.

0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 12

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

Cf. A070939, A135941, A253608.

Sequence in context: A111854 A132085 A111654 * A240567 A067099 A098429

Adjacent sequences: A264746 A264747 A264748 * A264750 A264751 A264752

Keyword

nonn,base

Author

Alex Ratushnyak, Nov 23 2015

Status

approved