OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = Sum_{i=1..n} A079584(i).
MATHEMATICA
s=0; Do[s=s+Apply[Plus, IntegerDigits[n!, 2]]; Print[s], {n, 1, 128}]
Accumulate[DigitCount[Range[60]!, 2, 1]] (* Harvey P. Dale, Apr 18 2014 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, May 27 2002
STATUS
approved