Олимпиада по информатике!!
Даю 90 баллов!

# Код на ruby 2.2.3p173
a = []
a lt;lt; [1]

for i in 2..10001
    f = 0
    a.each{ |group|
        m = 1
        group.each { |c|
            m *= i c
        }
        f += m
        if m gt; 0
            group lt;lt; i
            break
        end
    }
    a lt;lt; [i] if f == 0
end

p a
p a.size