A264749 - OEIS

%I #16 Dec 05 2015 11:44:48

%S 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,

%T 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,

%U 9,9,9,9,10,10,10,10,10,10,10,11,11,11,11,11,11,11,12

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

%H Reinhard Zumkeller, <a href="/A264749/b264749.txt">Table of n, a(n) for n = 0..10000</a>

%t {0}~Join~Table[Floor[n/IntegerLength[n, 2]], {n, 84}] (* _Michael De Vlieger_, Dec 01 2015 *)

%o (Python)

%o for n in range(88):  print str(n // (len(bin(n))-2))+',',

%o (PARI) a(n) = if (n, n\#binary(n)); \\ _Michel Marcus_, Dec 01 2015

%o (Haskell)

%o a264749 n = div n $ a070939 n  -- _Reinhard Zumkeller_, Dec 05 2015

%Y Cf. A070939, A135941, A253608.

%K nonn,base

%O 0,7

%A _Alex Ratushnyak_, Nov 23 2015