ClearAll[ p, a, i, f, k ] ;
i = 0.03 ;
a = 1000 ;
p = {100000, 125000, 150000, 175000, 200000, 225000, 250000 } ;
f[ principle_,amount_, interest_, n_] = (-principle + amount/interest)(1 + interest)^n - amount/(interest) // Floor ;
k[principle_,amount_, interest_] = 
- Log[1 - interest principle/amount]/
Log[1 + interest] ;

Column[
{Row[{"Break even amounts"}],
Row[{""}],
{p
,  SetAccuracy[p ((i-0.006)/12),1]
,  SetAccuracy[p ((i-0.0055)/12), 1]
,  SetAccuracy[p ((i-0.0053)/12), 1]
,  SetAccuracy[p ((i-0.0050)/12), 1]

} // Transpose // TableForm
}
]

Column[{
Row[{"Five year future value at competing rates"}],
{i, i - 0.005, i - 0.0053, i - 0.0055, i - 0.006},
Row[{""}],
f[p, a, #/12, 60] &/@ {i, i - 0.005, i - 0.0053, i - 0.0055, i - 0.006} // Transpose // TableForm
}
]

Column[{
Row[{"amortization duration at various payment amounts"}],
{
{1000, 1200, 1400, 1600},
k[ 200000, #, 0.025/12 ] /12  &/@ {1000, 1200, 1400, 1600}
} // TableForm
}]