DSolve[(a + b*p[x] - 4*a*n*p[x]^2)*y[x] + a*Derivative[1][y][x]*Derivative[2][p][x] + Derivative[2][y][x] == 0,y[x],x]