The Golden Ratio by *yuko*(51b)

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page