OFFSET
1,1
EXAMPLE
sigma(8) - 8 - 1 = 6, a perfect number, so 8 is a term;
sigma(115) - 115 - 1 = 28, a perfect number, so 115 is a term.
MATHEMATICA
With[{pn=PerfectNumber[Range[10]]}, Select[Range[37*10^5], MemberQ[pn, DivisorSigma[ 1, #]-#-1]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 04 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zdenek Cervenka, Oct 21 2017
STATUS
approved