OFFSET
1,3
LINKS
MATHEMATICA
Module[{sqs=Range[100, 1, -1]^2}, Table[SelectFirst[sqs, Divisible[ DivisorSigma[ 1, n], #]&], {n, 100}]] (* Harvey P. Dale, Jul 29 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 05 2019
STATUS
approved