OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Do[s=Sqrt[DivisorSigma[1, n+1]*DivisorSigma[1, n]]; If[IntegerQ[s], Print[s]], {n, 1, 5000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 21 2003
STATUS
approved