{
  $s=eval join'+', @d = grep !($n%$_), 1..++$n-1;
  eval { w(@d, $n) if $s > $n};
  print $n,$/ if $@ =~ /!/;
  redo
}