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 A218484 #43 Apr 12 2013 13:13:21 %S A218484 1,4,1276900,7236100,9449476,69529779225,273137935876,275693254225, %T A218484 1011814692100,1590221881600,3007619594001,5382738725329, %U A218484 6343774129225,10830009646404,43037339281225,49597341481444,161977776248401,492275260674729,623724701219361 %N A218484 Square numbers n for which sigma(n) - d(n) is also a perfect square. %e A218484 4 is in the list since 4 = 2^2 and sigma(4)-d(4) = 4 = 2^2. Also 9449476 = 3074^2 and sigma(9449476)-d(9449476) = 17455684 = 4178^2. %t A218484 Sqd[n_] := Sqrt[DivisorSigma[1, n] - DivisorSigma[0, n]]; t = {}; Do[p = n^2; If[IntegerQ[Sqd[p]], AppendTo[t, p]], {n, 7000000}]; t %Y A218484 Cf. A221856. %K A218484 nonn %O A218484 1,2 %A A218484 _Jayanta Basu_, Apr 11 2013 %E A218484 a(16)-a(19) from _Donovan Johnson_, Apr 11 2013