OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[4200], IntegerQ[Sqrt[# DivisorSigma[0, #]]]&] (* Harvey P. Dale, Apr 21 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 05 2002
STATUS
approved