For the fun of it:
perl -e 's/$/$\//;print while s/$/1/' [download]
In reply to Re: Generate the perl sequence 1, 11, 111, .... by Skeeve in thread Generate the perl sequence 1, 11, 111, .... by alih110