gistfile1.rb

$facto = [1]
for i in 1..10
  $facto[i] = $facto[i-1] * i
end
def f(n)
  res = 0
  until n.zero?
    res += $facto[n%10]
    n /= 10
  end
  res
end

m = 1
m += 1 while $facto[9] * m >= 10**m
res = 0
for i in 3...(10**m)
  res += i if f(i) == i
end
p res