%I #9 May 05 2019 03:53:51

%S 0,1,2,2,3,3,4,3,4,5,3,3,4,7,6,4,5,5,7,3,5,5,6,5,5,7,7,4,4,8,7,5,6,5,

%T 7,6,6,9,5,6,5,6,4,4,5,8,7,7,6,9,7,6,10,6,8,7,4,8,7,4,8,9,8,6,7,5,7,6,

%U 9,8,7,8,8,8,10,4,6,7,10,6,6,6,9,5,7,7,8,7,7,9,8,5,7,10,9,7,7,9,6,8,8,9,8

%N Number of 1's in binary expansion of A000326(n).

%F a(n) = A000120(A000326(n)). - _R. J. Mathar_, Oct 14 2009

%p read("transforms") ;

%p A000326 := proc(n) n*(3*n-1)/2 ; end:

%p A166312 := proc(n) wt(A000326(n)) ; end: seq(A166312(n),n=0..80) ; # _R. J. Mathar_, Oct 14 2009

%t Clear[lst,n,s,f] f[n_]:=Plus@@IntegerDigits[n,2]; s=0;lst={s};Do[s+=n; AppendTo[lst,f[s]],{n,1,6!,3}];lst

%Y Cf. A000120, A000326.

%K nonn,base,easy

%O 0,3

%A _Vladimir Joseph Stephan Orlovsky_, Oct 11 2009

%E Definition shortened, offset set to zero by _R. J. Mathar_, Oct 14 2009