%I A079584
%S A079584 1,1,2,2,4,4,6,6,6,11,7,12,12,12,18,18,22,23,17,22,25,28,31,29,30,35,38,
%T A079584 42,40,48,42,42,46,51,56,51,58,59,64,63,66,64,71,74,70,77,81,89,87,89,
%U A079584 90,88,94,87,99,103,98,101,109,113,103,113,120,120,109,123,121,130,121
%N A079584 Number of ones in the binary expansion of n!.
%F A079584 a(n) = sum_components(binary_vector(n!))
%e A079584 a(5) = 4 because 5!=120 and 120)D = 1111000)B, with 4 ones.
%t A079584 f[n_]:=Plus@@IntegerDigits[n,2]; lst={};Do[fa=n!;AppendTo[lst,f[fa]],
               {n,6!}];lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 
               10 2009]
%o A079584 (PARI) for(n=1,300,b=binary(n!); print1(sum(k=1,length(b),b[k]",")))
%Y A079584 Sequence in context: A083535 A070320 A124195 this_sequence A004079 A096494 
               A116568
%Y A079584 Adjacent sequences: A079581 A079582 A079583 this_sequence A079585 A079586 
               A079587
%K A079584 nonn
%O A079584 1,3
%A A079584 Jose R. Brox (tautocrona(AT)terra.es), Jan 26 2003