Monkeys and Coconuts

gistfile1.jl

x=zeros(Float64,5)
maxmultiple=1000
for m=1:maxmultiple
    x[5]=4*5*m #It has to be divisalbe by 4 and 5 
    for i=4:-1:1
        x[i]=5x[i+1]/4+1
    end
    x0=x[1]*5/4+1
    if isinteger(x)&&isinteger(x0)
        println(int(x))
        println("m=$m, x₀= $(int(x0))")
    end
end