integer::a(504)=0 do2 i=1,499 n=0 do1 while(n<125) a(i)=a(i)+1 do1 j=i+5,1,-1 1 n=n/10+sum(a(:j)*a(j::-1)) 2 a(i)=a(i)-1 print'("1.6"999i0)',a(2:499) end