It appears that Mathematica cannnot solve it symbolically.
In[5]:= DSolve[{y''''[x] + 12/x y'''[x] + 36/x^2 y''[x] +
24/x^3 y'[x] + 60 (7 - 18 x^4 + 3 x^8) y[x]^9 == 0, y[0] == 1,
y'[0] == 0, y''[0] == 0, y'''[0] == 0}, y[x], x]
Out[5]= DSolve[{60 (7 - 18 x^4 + 3 x^8) y[x]^9 + (
24 Derivative[1][y][x])/x^3 + (36 (y^\[Prime]\[Prime])[x])/x^2 + (
12
\!\(\*SuperscriptBox[\(y\),
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None]\)[x])/x +
\!\(\*SuperscriptBox[\(y\),
TagBox[
RowBox[{"(", "4", ")"}],
Derivative],
MultilineFunction->None]\)[x] == 0, y[0] == 1,
Derivative[1][y][0] == 0, (y^\[Prime]\[Prime])[0] == 0,
\!\(\*SuperscriptBox[\(y\),
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None]\)[0] == 0}, y[x], x]