A038688 Squares which are the sum of the divisors of some n.

1, 4, 36, 121, 144, 256, 324, 400, 576, 784, 900, 961, 1024, 1296, 1600, 1764, 1936, 2304, 2704, 2916, 3136, 3600, 3844, 4096, 4356, 4624, 4900, 5184, 5776, 6084, 6400, 7056, 7744, 8100, 9216, 9604, 10000, 10404, 10816, 11664, 12544, 12996, 14400

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

nn = 14400; t = Select[Union[DivisorSigma[1, Range[nn]]], IntegerQ[Sqrt[#]] &]; t = Select[t, # <= nn &] (* T. D. Noe, Sep 04 2013 *)

Crossrefs

Cf. A006532, A228061.

Sequence in context: A190318 A193874 A254939 * A362751 A076830 A144298

Adjacent sequences: A038685 A038686 A038687 * A038689 A038690 A038691

Keyword

nonn

Author

David W. Wilson

Status

approved