Обработка целочисленной информации

Обозначим через F целую часть среднего арифметического всех простых делителей целого числа, не считая самого числа. Если таких делителей у числа нет, то считаем значение F равным нулю. Напишите программу, которая перебирает целые числа, большие 9 500 000, в порядке возрастания и ищет среди них такие, для которых значение F не равно нулю и кратно 813. Выведите первые 5 найденных числа в порядке возрастания и справа от каждого числа – соответствующее значение F. Количество строк для записи ответа избыточно.