Var S:Integer=22;Begin repeat write(S);S:=S*7 div 3;until S>1e8;End.