Perl 6, 141(削除) 141 (削除ここまで) 124 bytes
Thanks to Jo King for -17 bytes
sub f($_){for ^.abs ->\a {my \c=Int(sqrt$!=0+|sqrt .abs2-a2);for -c..c ->\b $^a2;{($!=$_/my \w=b+a*i;if \w=$^b+$a*i)==$!.floor&&.abs>w.abs>1&&$_/w==floor $_/w {returnabs>1>return f w&$_/w}w&$!}for -$!..$!};for ^.abs;.say}
Perl 6, 141 bytes
sub f($_){for ^.abs ->\a {my \c=Int(sqrt .abs2-a2);for -c..c ->\b {my \w=b+a*i;if .abs>w.abs>1&&$_/w==floor $_/w {return f w&$_/w}}};.say}
Perl 6, (削除) 141 (削除ここまで) 124 bytes
Thanks to Jo King for -17 bytes
sub f($_){{$!=0+|sqrt .abs2-$^a2;{($!=$_/my \w=$^b+$a*i)==$!.floor&&.abs>w.abs>1>return f w&$!}for -$!..$!}for ^.abs;.say}