ContourPlot(a^b == b^a, {a, 0,30}, {b, 0, 30})