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