var	rec:array[1..2,1..12]of longint;
	n,i:longint;
function opt(x,y:longint):longint;
var	i,ans,temp:longint;
begin
if rec[x,y]<>-1 then exit(rec[x,y]);
if y=0
	then ans:=0
	else if x=1
		then if y=1
			then ans:=1
			else ans:=opt(1,y-1)*2+1
		else begin
		ans:=2*opt(2,y-1)+1;
		for i:=1 to y-2 do
			begin
			temp:=2*(opt(2,i)+opt(1,y-i-1))+1;
			if temp<ans then ans:=temp;
			end;
		end;
rec[x,y]:=ans;
opt:=ans;
end;
begin
assign(input,'hanoi.in'); reset(input);
assign(output,'hanoi.out'); rewrite(output);
n:=12;
fillchar(rec,sizeof(rec),$FF);
for i:=1 to n do
	writeln(opt(2,i));
close(input); close(output);
end.
...我寂寞地交记忆化