Return to Answer

added 101 characters in body

edited Nov 25, 2021 at 16:06

edited Nov 25, 2021 at 16:06

Wolfram Language (Mathematica), 42(削除) 42 (削除ここまで) 40 bytes

-2 bytes thanks to att !

If[Mean@Divisors@n∣nDo[Mean@Divisors@n∣n&&Print@n,Print@n]~Do~{n,∞}]

If[Mean@Divisors@n∣n,Print@n]~Do~{n,∞}

-2 bytes thanks to att !

Do[Mean@Divisors@n∣n&&Print@n,{n,∞}]

answered Nov 23, 2021 at 9:35

answered Nov 23, 2021 at 9:35

If[Mean@Divisors@n∣n,Print@n]~Do~{n,∞}