This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A116013 #4 Dec 17 2012 15:29:23
%S A116013 517,1403,2467,28265,28580,49888,52396,77429,81099,290936,319600,
%T A116013 394731,462803,555543,601943,617716,633065,634808,720401,775669,
%U A116013 884835,894024,1077432,1089360,1170136,1178152,1191789,1209357
%N A116013 n+sigma(n)+sigma(sigma(n)) is a cube.
%e A116013 1403+sigma(1403)+sigma(sigma(1403))=19^3.
%t A116013 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 *)
%Y A116013 Cf. A116012, A116014, A116015.
%K A116013 nonn
%O A116013 1,1
%A A116013 _Giovanni Resta_, Feb 13 2006