This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176471 #20 May 30 2025 20:10:22 %S A176471 1,4,16,36,144,576,900,3600,14400,32400,44100,129600,176400,705600, %T A176471 1587600,2822400,6350400,21344400,57153600,85377600,192099600, %U A176471 341510400,768398400,3073593600,6915585600,12294374400,14428814400,32464832400,57715257600,129859329600 %N A176471 Duplicate of A136404. %C A176471 Same as A136404. - _Georg Fischer_, Oct 12 2018 %C A176471 Previous name was: Highly composite square numbers for which the number of divisors increases to a record. %t A176471 With[{sqs=Range[10000]^2},Union[Flatten[Table[Select[sqs, DivisorSigma[ 0,#]>n&,1],{n,500}]]]] (* _Harvey P. Dale_, Apr 28 2012 *) %t A176471 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 A176471 Cf. A126098 (square root of these terms). %Y A176471 Cf. A136404. - _Georg Fischer_, Oct 12 2018 %K A176471 dead %O A176471 1,2 %A A176471 Ethan Ward (etkewa(AT)gmail.com), Apr 18 2010 %E A176471 Corrected and extended by _Harvey P. Dale_, Apr 28 2012