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