Revision f2135a38-01af-45b6-9dd4-302d7da2c5c0 - Code Golf Stack Exchange

# [Wolfram Language (Mathematica)], 89 bytes 

Takes a positive integer n and outputs all n-sociable sequences

 Do[If[Last[s=NestList[Tr@Divisors@#-#&,d,#]]==d&&Tr[1^Union@s]==#,Print@Most@s],{d,∞}]&

[Try it online!][TIO-km56d1z2]

[Wolfram Language (Mathematica)]: https://www.wolfram.com/wolframscript/
[TIO-km56d1z2]: https://tio.run/##y00syUjNTSzJTE78n2773yU/2jMt2iexuCS62NYvtbjEJxPIDClycMksyyzOLyp2UNZVVtNJ0VGOjbW1TVFTCymKNowLzcvMz3MoBooo6wQUZeaVOPjmF5cABXSqU3QedcyrjVX7nx5tFPv/PwA "Wolfram Language (Mathematica) – Try It Online"