OFFSET
1,1
EXAMPLE
sigma(155131)+p(155131)=2248091=131^3.
MATHEMATICA
Select[Range[4024000], IntegerQ[Surd[DivisorSigma[1, #]+Prime[#], 3]]&] (* Harvey P. Dale, Nov 01 2021 *)
PROG
(PARI) isok(n) = ispower(sigma(n) + prime(n), 3); \\ Michel Marcus, Jan 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved