f = DifferentialRoot[ Function[{y, x}, {y''[x] + x^5 y[x] == 0, y[0] == 0, y'[0] == 1}]]
Plot[f[x], {x, 0, 7}]
Series[f[x], {x, 0, 50}]