%I #18 Oct 17 2018 02:17:01
%S 1,4,16,36,144,576,900,3600,14400,32400,44100,129600,176400,705600,
%T 1587600,2822400,6350400,21344400,57153600,85377600,192099600,
%U 341510400,768398400,3073593600,6915585600,12294374400,14428814400,32464832400,57715257600,129859329600
%N Duplicate of A136404,
%C Same as A136404. - _Georg Fischer_, Oct 12 2018
%C Previous name was: Highly composite square numbers for which the number of divisors increases to a record.
%t With[{sqs=Range[10000]^2},Union[Flatten[Table[Select[sqs, DivisorSigma[ 0,#]>n&,1],{n,500}]]]] (* _Harvey P. Dale_, Apr 28 2012 *)
%t t = {1}; sig = {1}; n = 1; Do[While[n++; d = DivisorSigma[0, n^2]; d <= sig[[-1]]]; AppendTo[sig, d]; AppendTo[t, n^2], {30}]; t (* _T. D. Noe_, Apr 30 2012 *)
%Y Cf. A126098 (square root of these terms).
%Y Cf. A136404. - _Georg Fischer_, Oct 12 2018
%K dead
%O 1,2
%A Ethan Ward (etkewa(AT)gmail.com), Apr 18 2010
%E Corrected and extended by _Harvey P. Dale_, Apr 28 2012