DSolve[-2*n*(3 + n)*(-3 + 4*n)*y[x]*Derivative[1][phi][x] - 36*n^2*WeierstrassP[x, {g2, g3}]*Derivative[1][y][x] + 27*Derivative[3][y][x] == 0,y[x],x]