Найти n-й член последовательности 1, 2, 4, 5, 10, 100, 101, 202, 40804,

Начало программы; 
объявление переменных n,a,b,c числа типа Double;
начал;
вывод :введите число - n-й элемент последовательности;
ввод :число n;
b приравниваем к 1;
цикл пока a не равно n делать  
 если a не равно n то начало: b = b * 2;  a:=a+1; конец;
  если если a не равно n то начало: b:=b*b; a:=a+1; конец;
   если если a не равно n то начало: b:=b+1; a:=a+1; конец;
конец цикла;
вывод : число находящееся на месте n месте ==> d;
конец программы.