DSolve[-((x*Cos[Log[Log[x]]])/Log[x]) - y[x] + x*Derivative[1][y][x] == 0,y[x],x]