I use Series[] a lot, but would like the output to the equivalent to Series[Sin[x], {x, Infinity, 0}] to be like.
Series[Sin[x], {x, Infinity, 0}]
Try:
Asymptotic[Sin[x], {x, 0, Infinity}] /. \[FormalN] -> k