How to use AppendTo in a While loop?

I am trying to code a while loop that uses AppendTo to append the output of the while loop into an empty list.

even = {} i = 1; While[i <= 5, Print[i]; AppendTo[even, i]; i++]

This code does not give any output. Can someone please tell what I am doing wrong. Thanks!