На питоне, "Последовательность Хэмминга"

Если числа имеют среди делителей только 2, 3 и 5 в любой степени, то, расположенные по возрастанию, они образуют последовательность Хэмминга. Выведите n-е число последовательности.

Первые 10 чисел такие: 2, 3, 4, 5, 6, 8, 9, 10, 12, 15.

Пример
Ввод Вывод
5 6

Я задачу решила но она не проходит по ограничению по времени (ограничение 1 секунда),
Мой код:
a = int(input())
i = 0
y = 0
while i != a:
y += 1
x = y
if x % 2 == 0:
while x % 2 == 0:
x = x / 2
if x % 3 == 0:
while x % 3 == 0:
x = x / 3
if x % 5 == 0:
while x % 5 == 0:
x = x / 5
if x == 1:
i += 1

elif x % 3 == 1:
while x % 3 == 0:
x = x / 3
if x == 1:
i += 1

elif x % 3 == 0:
while x % 3 == 0:
x = x / 3
if x == 1:
i += 1

elif x == 1:
i += 1

elif x % 5 == 0:
while x % 5 == 0:
x = x / 5
if x == 1:
i += 1

elif x % 3 == 0:
while x % 3 == 0:
x = x / 3
if x % 5 == 0:
while x % 5 == 0:
x = x / 5
if x == 1:
i += 1
elif x == 1:
i += 1

elif x % 5 == 0:
while x % 5 == 0:
x = x / 5
if x == 1:
i += 1
elif x == 1:
i += 0
print(y)

1,2,3)Гиперссылка (англ. hyperlink) — часть гипертекстового документа, ссылающаяся на элемент в этом документе (команда, текст, изображение, сноска) или на другой объект (файл (документ), каталог, приложение), расположенный на локальном диске или в компьютерной сети, либо на элементы этого объекта.Гиперссылка может быть добавлена к любому элементу HTML-документа. Часть текста с добавленной ссылкой по умолчанию выделяется синим цветом, как в предыдущем

предложени

4) Закладка в Word играет ту же роль, что и в обычной книге: это пометка в тексте, позволяющая легко найти нужный фрагмент снова. Вы можете создать в документе (или в сообщении Outlook) сколько угодно закладок и присвоить каждой из них уникальное имя, чтобы легко их опознавать.

5) 1) Выделите текст 2) Щелкните

правой кнопкой мыши по тексту 3) В выпадающем меню выберите опцию 4 вставить гиперссылку

Хзхз мб

program tsveti;

var x,y,z,w:integer;

begin

   write('Введите количество девочек: '); readln(x);

   write('Введите количество цветов: '); readln(y);

   if (y div x) mod 2 = 0 then begin // здесь мы проверяем, не получается ли чётное количество цветков, и если получается чётное, то вычитаем остаток и количество девочек, чтобы добиться нечётного количества

       w := y mod x + x;

       z := (y - w) div x;

   end

   else begin

       w := y mod x;

       z := y div x;

   end;

   writeln('Девочкам подарили по ', z, ' шт. цветков.');

   writeln('Осталось ', w, ' шт. цветков.');

end.