Problem #53

This problem looked like it would be easiest with Mathematica. So thats what I used.

totalsum = 0;
For[i = 1, i <= 100, i++,
  For[j = 1, j < i, j++,
    If[Binomial[i, j] > 1000000, totalsum++];
    ];
  ];
Print[totalsum];