Solve[y'== xy]

Log[Sin[38]]

N[Log[Sin[38]]]

Abs[-1.2161514009320473`]

RealDigits[1.2161514009320473`]

Graph[Log[x]]

Plot[Log[x], {x, 0, 10}]