%I #7 Sep 04 2013 16:00:01
%S 1,4,36,121,144,256,324,400,576,784,900,961,1024,1296,1600,1764,1936,
%T 2304,2704,2916,3136,3600,3844,4096,4356,4624,4900,5184,5776,6084,
%U 6400,7056,7744,8100,9216,9604,10000,10404,10816,11664,12544,12996,14400
%N Squares which are the sum of the divisors of some n.
%H T. D. Noe, <a href="/A038688/b038688.txt">Table of n, a(n) for n = 1..1000</a>
%t nn = 14400; t = Select[Union[DivisorSigma[1, Range[nn]]], IntegerQ[Sqrt[#]] &]; t = Select[t, # <= nn &] (* _T. D. Noe_, Sep 04 2013 *)
%Y Cf. A006532, A228061.
%K nonn
%O 1,2
%A _David W. Wilson_
|