DSolve[-(y[x]*(b + a*p[x] + (p^4)[x]/30 + (7*Derivative[2][p][x])/3)) + Derivative[2][y][x] == 0,y[x],x]