OFFSET
1,1
EXAMPLE
sigma(13) + 13 = 27 = 3^3.
MATHEMATICA
Select[Range[701100], IntegerQ[Surd[DivisorSigma[1, #]+#, 3]]&] (* Harvey P. Dale, Oct 22 2023 *)
PROG
(PARI) isok(n) = ispower(sigma(n) + n, 3); \\ Michel Marcus, Jan 22 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
EXTENSIONS
More terms from Michel Marcus, Jan 22 2014
STATUS
approved