Return to Answer

added 101 characters in body

edited Nov 25, 2021 at 16:06

61.2k
3
49
164

Wolfram Language (Mathematica), 4242 40 bytes

-2 bytes thanks to att!

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

Try it online!Try it online!

Wolfram Language (Mathematica), 42 bytes

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

Wolfram Language (Mathematica), 42 40 bytes

-2 bytes thanks to att!

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

answered Nov 23, 2021 at 9:35

61.2k
3
49
164

Wolfram Language (Mathematica), 42 bytes

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