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