OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200
MATHEMATICA
fQ[n_] := IntegerQ[ Sqrt[ DivisorSigma[2, n] DivisorSigma[1, n]/DivisorSigma[0, n]]]; k = 1; lst = {}; While[k < 1132096, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst (* Robert G. Wilson v, Sep 10 2010 *)
Select[Range[137*10^4], IntegerQ[Sqrt[(DivisorSigma[2, #]DivisorSigma[ 1, #])/ DivisorSigma[ 0, #]]]&] (* Harvey P. Dale, Jun 18 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Nov 29 2008
EXTENSIONS
Correct definition recovered by Jack Brennen
12 more terms from R. J. Mathar, Aug 25 2010
More terms from Robert G. Wilson v, Sep 10 2010
STATUS
approved