Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- nn = NestWhile[# + 1 &, 1,
- DivisorSigma[0, PolygonalNumber[#]] <= 500 &];
- ans = PolygonalNumber[nn]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement