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

Если числа имеют среди делителей только 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)

Использовать Чертежник
алг Слон
   нач
   опустить перо
   сместиться на вектор(2, 0)
   сместиться на вектор(0, 2)
   сместиться на вектор(1, 0)
   сместиться на вектор(0, -2) 
   сместиться на вектор(2, 0)
   сместиться на вектор(0, 2)
   сместиться на вектор(1, 1)
   сместиться на вектор(0, 2)
   сместиться на вектор(1, -2)
   сместиться на вектор(-1, 2)
   сместиться на вектор(-1, 1)
   сместиться на вектор(-3, 0)
   сместиться на вектор(-1, 1)
   сместиться на вектор(-1, 0)
   сместиться на вектор(-1, -2)
   сместиться на вектор(-1, 0)
   сместиться на вектор(0, 3)
   сместиться на вектор(-1, 0)
   сместиться на вектор(0, -3)
   сместиться на вектор(1, -1)
   сместиться на вектор(2, -1)
   сместиться на вектор(0,-3)
   поднять перо
   сместиться на вектор(1, 3)
   опустить перо
   сместиться на вектор(1, 1)
   сместиться на вектор(0, 2)
   поднять перо
   сместиться на вектор(-2, -1)
   опустить перо
   сместиться на вектор(-0.1, 0.1)
   сместиться на вектор(-0.1, -0.1)
   сместиться на вектор(0.1, -0.1)
   сместиться на вектор(0.1, 0.1)
   поднять перо
   сместиться на вектор(0, -5)
кон

Var
A,B,C:integer;
Begin

WriteLn('Введите три числа');
ReadLn(A,B,C);
if (A<=B)and(B<=C) then Write(A,' ',B,' ',C)
else if (A<=C)and(C<=B) then Write(A,' ',C,' ',B)
else if (B<=A)and(A<=C) then Write(B,' ',A,' ',C)
else if (B<=C)and(C<=A) then Write(B,' ',C,' ',A)
else if (C<=A)and(A<=B) then Write(C,' ',A,' ',B)
else if (C<=B)and(B<=A) then Write(C,' ',B,' ',A)
End.

Var a,b,c,D:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
D:=b*b-4*a*c;
if D>=0 then
   Begin
   WriteLn('x = ',(-b-sqrt(D))/(2*a));
   WriteLn('x = ',(-b+sqrt(D))/(2*a));
   End
else WriteLn('Действительных корней нет')
End.