完全数

スライダーを使って，２から１００までの数の約数を見てみましょう．そのなかから完全数を見つけましょう．

約数の総和ともとの数の2倍が一致している数を
「完全数」といいます．
（自分自身を除いた約数の総和が自分自身になる．）
１から１００のなかから完全数を
探してみましょう．

n = 27 (slider from 2 to 100, step 1)
list = RemoveUndefined(Sequence[If[Mod[n, i] ≟ 0, i], i, 1, n])
text1: "" + n + "の約数は" + list + "です．"