Sublime Number

Author

Eric W. Weisstein
March 23, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheory/SublimeNumber.nb.

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

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

Initialization

<<EISFormat`;

PerfectQ[n_Integer?Positive]:=(DivisorSigma[1,n]==2n)

SublimeQ[n_Integer?Positive]:=PerfectQ/@And@@(DivisorSigma[#,n]&/@{0,1})

Known examples

sublime={12,6086555670238378989670371734243169622657830773351885970528324860512791691264};

SublimeQ/@sublime

EIS

Unfortunately, the second term is too large to fit in EIS…

FormatSequence[sublime,0,
Name->"Sublime numbers."
]