Seeking easier code for 1, 2, 5, 10, 20, 50... sequence

[James Waldby]

perl -e '$m=1; while($m<10001){print " $m"; $m*=(5-$m%9%2)/2;}'

produces:

1 2 5 10 20 50 100 200 500 1000 2000 5000 10000

I've been trying to find some shorter code for this
than the $m*=(5-$m%9%2)/2; expression, but no luck.

Any ideas?

--
jiw

[Loki Harfagr]

Mon, 14 Sep 2009 02:21:45 -0500, James Waldby did cat :

If you're nor absolutely looking after something strictly computational
maybe something around this cheat?

m=10^p++; printf "%d %d %d ",m,m*2,m*5;