type m=array[1..10000] of integer;
var x:m;
    i:integer;
begin 
x[1]:=3;
x[2]:=9;
for i:=3 to 10000 do
begin
x[i]:=2*x[i-2]+x[i-1];
if x[i] mod 23 =0 then writeln(x[i],' ',i);
end;
end.