(for n 1 99(prn'N= n",A="(trunc:/(min(+(/ n 11)11)inc.n)2)))