จำนวนเกิน

มีคนโพสท์ถามตามนี้ครับ

เราสามารถหาตัวเลขจำนวนเกินที่เป็นจำนวนคี่ได้ด้วยคำสั่ง Mathematica ง่าย ๆ เช่น

Reap[If[OddQ[#] && Total@Divisors[#] >= 2 #, Sow[#]] & /@
Range[10000]][[2, 1]]

{945, 1575, 2205, 2835, 3465, 4095, 4725, 5355, 5775, 5985, 6435,
6615, 6825, 7245, 7425, 7875, 8085, 8415, 8505, 8925, 9135, 9555,
9765}

ซึ่งจะแสดงจำนวนเกินที่อยู่ระหว่าง 1-10000 ครับ