unsubscribe -- Lloyd Zusman [EMAIL PROTECTED] perl -le '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0; $t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);} $x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print $x'
- modperl-unsubscribe@apache.org Lloyd Zusman
- modperl-unsubscribe@apache.org Sylko Olzscher