%I #22 Jun 17 2022 19:03:03
%S 1,2,1,4,2,3,2,8,4,5,3,6,4,4,3,16,8,9,6,10,7,7,5,12,8,8,6,9,7,7,6,32,
%T 16,17,11,18,12,12,9,20,13,14,10,14,11,11,9,24,16,16,12,17,13,13,11,
%U 18,14,14,11,15,12,12,10,64,32,33,22,34,23,23,17,36,24,24,18,25,19,19,15
%N a(n) = floor(n/S2(n)), where S2(n) is the binary weight of n.
%H Samuel Harkness, <a href="/A135941/b135941.txt">Table of n, a(n) for n = 1..10000</a>
%H Samuel Harkness, <a href="/A135941/a135941.jpg">Scatterplot of the first 100000000 terms</a>
%F a(n) = floor(n/A000120(n)).
%t Table[Floor[n/First@ DigitCount[#, 2] &@ n], {n, 79}] (* _Michael De Vlieger_, Nov 30 2015 *)
%o (PARI) a(n) = n\hammingweight(n); \\ _Michel Marcus_, Nov 30 2015
%Y Cf. A000120.
%K easy,nonn
%O 1,2
%A _Ctibor O. Zizka_, Mar 02 2008
%E a(0) removed by _Michel Marcus_, Nov 30 2015
|