NIntegrate[x^(Sin[Pi x]/x) - 1, {x, 0, \[Infinity]}, WorkingPrecision ->10]