
<< SAP.m

Print["the first 10 terms of the SAP series for width=2 are"]

SAPSeries[2, 10]