mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
9 lines
279 B
Mathematica
9 lines
279 B
Mathematica
(* ::Package:: *)
|
|
|
|
(* Problem12.m *)
|
|
(* Author: William Woodruff *)
|
|
(* Problem: What is the value of the first triangle number to have over five hundred divisors? *)
|
|
|
|
Do[If[Length[Divisors[Binomial[i + 1, 2]]] > 500,
|
|
Print[Binomial[i + 1, 2]]; Break[]], {i, 1000000}]
|