OFFSET
1,3
LINKS
MATHEMATICA
Table[Last[Select[Sqrt[#]&/@Divisors[DivisorSigma[1, n]], IntegerQ]], {n, 120}] (* Harvey P. Dale, Jun 25 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 05 2019
STATUS
approved