cp's OEIS Frontend

A166314 Number of 1's in binary expansion of A000124(n).

%I A166314 #9 May 05 2019 03:52:11
%S A166314 1,1,1,3,3,1,3,4,3,4,3,3,5,4,4,5,3,4,4,7,5,4,7,4,5,4,3,7,6,5,5,6,3,4,
%T A166314 4,7,6,3,6,5,6,7,4,7,9,3,5,5,5,5,7,7,6,5,7,4,7,7,5,8,7,6,6,7,3,4,4,7,
%U A166314 6,5,7,9,5,6,6,6,9,8,4,6,6,8,6,9,9,5,8,9,8,8,1,6,7,4,6,6,5,5,7,8,9,3,5,8,7
%N A166314 Number of 1's in binary expansion of A000124(n).
%F A166314 a(n) = A000120(A000124(n)). - _Michel Marcus_, May 05 2019
%p A166314 read("transforms") ;
%p A166314 A166314 := proc(n) wt(A000124(n)) ; end:
%p A166314 A000124 := proc(n) n*(n+1)/2+1 ; end: seq(A166314(n),n=0..80) ; # _R. J. Mathar_, Oct 14 2009
%t A166314 Clear[lst,n,s,f,i] f[n_]:=Plus@@IntegerDigits[n,2]; i=1;s=1;lst={i};Do[s+=n+i; If[s>=0,AppendTo[lst,f[s]]],{n,0,6!,1}];lst
%Y A166314 Cf. A000120, A000124.
%K A166314 nonn,base,easy
%O A166314 0,4
%A A166314 _Vladimir Joseph Stephan Orlovsky_, Oct 11 2009
%E A166314 Definition shortened, offset set to zero by _R. J. Mathar_, Oct 14 2009