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