perl -le'$==1;1while print$==(1+$=+$=*sqrt 5)/2'
perl -le'$==1;1while print$==(1+sqrt 5)*$=/2+.5'
perl -le'$==1;1while print$==$=*1.6180339887+.5'
perl -le'for ($x = 1; $x = int(0.5 + $x * (sqrt(5) + 1)/2); ) { print $x; }'