A083357 Numbers n such that A083356(n) (the total area of all incongruent integer-sided rectangles of area <= n) is a square.
0, 1, 43, 169, 227, 735, 10664, 14702, 78159, 5431210, 8350707565
Offset: 1
Examples
A083356(43)=2116=46^2, so 43 is in this sequence.
Links
- Nick MacKinnon, Problem 10883, Amer. Math. Monthly, 108 (2001) 565; solution by John C. Cock, 110 (2003) 343-344.
Programs
-
Mathematica
For[n=area=0, True, n++; area+=n*Ceiling[DivisorSigma[0, n]/2], If[IntegerQ[s=Sqrt[area]], Print[{n, s}]]]
Extensions
a(11) from Max Alekseyev, Jan 30 2012
Comments