2000.times{|o|n=o
n=eval(n.to_s.gsub /./,'+\&**2')until n<5
n==1&&p(o)}