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