2.1.8.2 Mathematica
ode=Sqrt[D[y[x],x]+y[x]]== (D[y[x],{x,2}]+2*x)^(1/4); 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 

Not solved