<>=~/ /;@c=(1,1)x$`,$p=1-$';for$i(2..$`){$r+=$c[$i];$c[$i*$_]*=$p for 2..$`/$i}print$r