|
%I #10 Dec 20 2018 23:17:29
%S 1,1,1,2,2,4,4,6,6,12,12,18,24,36,54,72,72,144,144,216,288,432,648,
%T 864,1296,1944,2592,3456,5832,7776,10368,12960,12960,25920,25920,
%U 38880,51840,77760,116640,155520,233280,349920,466560,622080,1049760,1399680,1866240,2332800,3732480,5598720,6998400,9331200,16796160,22394880,27993600,34992000
%N a(0) = 1; for n > 0, a(n) = A000120(n) * a(n-A000120(n)), where A000120(n) is the binary weight of n.
%C Sequence is monotonic because A011371 is.
%H Antti Karttunen, <a href="/A320008/b320008.txt">Table of n, a(n) for n = 0..133</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(0) = 1; for n > 0, a(n) = A000120(n) * a(n-A000120(n)).
%t Nest[Append[#1, #2 #1[[-#2]] ] & @@ {#, Total@ IntegerDigits[Length@ #, 2]} &, {1}, 55] (* _Michael De Vlieger_, Nov 25 2018 *)
%o (PARI) A320008(n) = if(0==n,1,hammingweight(n)*A320008(n-hammingweight(n)));
%Y Cf. A000120, A011371, A179016.
%Y Cf. also A320002, A320009.
%K nonn
%O 0,4
%A _Antti Karttunen_, Nov 24 2018
|
