map{$t=$n;1while($f=$t%$_<2)&&($t=int$t/$_);say if$f}2..($n=<>)
Try it online!
No bonus on this because it scores very slightly better than my version with the bonus:
Perl 5, 85 bytes * 0.75 = 63.75
map{my$r;$t=$n;$r=$/.$r while($/=$t%$_)<2&&($t=int$t/$_);say"$_ 1$r"if$/<2}2..($n=<>)
Try it online!