Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- AbsoluteTiming[
- lst = Flatten@Table[Binomial[n, k], {n, 1, 100}, {k, 0, n}];
- ans = Length@Select[lst, # > 10^6 &]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement