program mindco;
var n,i:longint;

begin
 readln(n);
 if n>100 then begin
        writeln(100);
        for i:=1 to 100 do
                write(i,' ');
        end
 else begin
 writeln(n);
 for i:=1 to n do
        write(i,' ');
 end;
end.