OFFSET
1,2
COMMENTS
The sequence is zero for n>36, since A005179(n) > n^2 for all n > 36.
EXAMPLE
a(4) = 15, because 15 is the greatest number <= 4^2 with exactly 4 divisors.
MATHEMATICA
Seq := {}; For[n = 1, n < 50, n++, AppendTo[Seq, a = Max[Select[Range[n^2], DivisorSigma[0, #] == n &]]; If[a == -Infinity, 0, a]]]; Seq
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Carlos Eduardo Olivieri, May 20 2016
STATUS
approved