A176471 Duplicate of A136404.

1, 4, 16, 36, 144, 576, 900, 3600, 14400, 32400, 44100, 129600, 176400, 705600, 1587600, 2822400, 6350400, 21344400, 57153600, 85377600, 192099600, 341510400, 768398400, 3073593600, 6915585600, 12294374400, 14428814400, 32464832400, 57715257600, 129859329600

Offset: 1

Author

Ethan Ward (etkewa(AT)gmail.com), Apr 18 2010

Keywords

• dead

Comments

Same as A136404. - Georg Fischer, Oct 12 2018

Previous name was: Highly composite square numbers for which the number of divisors increases to a record.

Crossrefs

Cf. A126098 (square root of these terms).

Cf. A136404. - Georg Fischer, Oct 12 2018

Programs

Mathematica

With[{sqs=Range[10000]^2},Union[Flatten[Table[Select[sqs, DivisorSigma[ 0,#]>n&,1],{n,500}]]]] (* Harvey P. Dale, Apr 28 2012 *)
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 *)

Extensions

Corrected and extended by Harvey P. Dale, Apr 28 2012