%I A071425
%S A071425 1,2,4,6,10,14,20,26,32,43,50,62,74,86,104,122,144,167,184,206,231,259,
%T A071425 290,319,349,384,422,464,504,552,594,636,682,733,789,840,898,957,1021,
%U A071425 1084,1150,1214,1285,1359,1429,1506,1587,1676,1763,1852,1942,2030,2124
%N A071425 Total number of 1-s in binary representation of all factorials from 1 
               to n.
%t A071425 s=0; Do[s=s+Apply[Plus, IntegerDigits[n!, 2]]; Print[s], {n, 1, 128}]
%Y A071425 Cf. A000142, A000788.
%Y A071425 Sequence in context: A082379 A167379 A094589 this_sequence A115065 A008804 
               A001307
%Y A071425 Adjacent sequences: A071422 A071423 A071424 this_sequence A071426 A071427 
               A071428
%K A071425 base,easy,nonn
%O A071425 1,2
%A A071425 Labos E. (labos(AT)ana.sote.hu), May 27 2002