Mathematica 11.3.0.0 Windows 10 64
Can anybody verify that in the following code the FindCycle statement either aborts with the result: "$Aborted[]" or it kills the Kernel outright.
ma = 300; da1 = Flatten[Table[ {(1 + 2 a1)^2/2 + (1 + 2 a2)^2/2, 2 (a2 (a2 + 1) - a1 - a1^2)} , {a2, ma}, {a1, 0, Floor[1/2 (-1 + Sqrt[-1 + 4 a2 + 4 a2^2])]}], 1]; da2 = Flatten[Table[ {(a1^2 + a2^2) 2, (a2^2 - a1^2) 2} , {a2, ma}, {a1, a2 - 1}], 1]; da = Transpose[Join[da1, da2]]; gr = Graph [Thread[da[[1]] -> da[[2]]]]; FindCycle[gr]
