import Pkg; Pkg.add("Primes")

using Primes  # Пакет для работы с простыми числами и факторизацией

# Функция проверяет, является ли число n почти простым порядка k
# almost prime k-го порядка - число с ровно k простыми множителями (с учетом кратности)

isalmostprime(n::Integer, k::Integer) = sum(values(factor(n))) == k

# Функция возвращает первые N почти-k-простых чисел
function almostprimes(N::Integer, k::Integer) 
    # Создаем вектор для хранения результатов размером N типа k
    P = Vector{typeof(k)}(undef,N)
    # Инициализируем счетчик найденных чисел и текущее проверяемое число
    i = 0; n = 2
    # Цикл продолжается пока не найдем N чисел
    while i < N
        # Если текущее число является почти простыми порядка k
        if isalmostprime(n, k) 
            # Сохраняем его в массив результатов и увеличиваем счетчик
            P[i += 1] = n 
        end
        # Переходим к следующему числу
        n += 1
    end
    # Возвращаем вектор найденных почти простых чисел
    return P
end

# Для каждого значения k от 1 до 5 генерируем и выводим первые 10 почти простых чисел
for k in 1:5
    # Генерируем первые 10 почти простых чисел порядка k
    primes_k = almostprimes(10, k)
    # Преобразуем числа в строки и соединяем их запятыми
    result_str = join(primes_k, ", ")
    # Выводим результат в форматированном виде
    println("$k-почти простые: $result_str...")
end