Plato's Numbers

Author

Eric W. Weisstein
July 1, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Numbers/PlatosNumbers.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PlatosNumbers.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

216

6^3

Plus@@({3,4,5}^3)

5040

12 20 21

5040/12^2

Divisors[5040]//Length

Select[Divisors[5040],#<13&]

Complement[Range[12],%]