A116013 n+sigma(n)+sigma(sigma(n)) is a cube.

517, 1403, 2467, 28265, 28580, 49888, 52396, 77429, 81099, 290936, 319600, 394731, 462803, 555543, 601943, 617716, 633065, 634808, 720401, 775669, 884835, 894024, 1077432, 1089360, 1170136, 1178152, 1191789, 1209357

Offset: 1

Author

Giovanni Resta, Feb 13 2006

Keywords

• nonn

Examples

			1403+sigma(1403)+sigma(sigma(1403))=19^3.
		

Crossrefs

Cf. A116012, A116014, A116015.

Programs

Mathematica

scQ[n_]:=Module[{c=DivisorSigma[1,n]},IntegerQ[(n+c+DivisorSigma[1,c]) ^ (1/3)]]; Select[Range[1300000],scQ] (* Harvey P. Dale, Dec 17 2012 *)