c2:=数组(0..8,[3,3,5,5,7,6,8,8,10]);c3:=数组(0..8,1..2,[[1,1],[1,2],[2,1][3,1][2,2][3,2][3,2],[3,2],[4,2]]);c4:=数组(0..8,1..3,[[0,0,0],[0,0,1],[1,0,1],[1,0,2],[2,02,2],[2],1,2],[3,1,2],[3],[4,1,3]]);对于从23到100的n,dor:=n mod 9;t:=iquo(n,9);a2:=6*t+c2[r];a3:=(2*t+c3[r,1])+(2*t+c3[r,2])*a2;打印f(“%a,”,4*t+c4[r,1]+(2*t+c4[r、2])*a2+(3*t+c4[r,3])*a3);结束时间:- _# _R.J.Mathar,2006年4月1日