DSolve[a*x^(-1 - a) - x^(-2*a) - y[x]/x^a + 3*y[x]^2 - x^a*y[x]^3 + Derivative[1][y][x] == 0,y[x],x]