uses crt;

var
  n: integer;
  s, s1: string;
  tongchan, tong23: integer;

function main: integer;
begin
  readln(n);

  for a := 0 to n do
  begin
    if (a mod 3 = 0) then
      s := s + IntToStr(a) + ' ';

    if ((a mod 2 = 0) and (a mod 3 = 0)) then
    begin
      s1 := s1 + IntToStr(a) + ' ';
      tong23 := tong23 + a;
    end;

    if (a mod 2 = 0) then
      tongchan := tongchan + a;
  end;

  writeln(s);
  writeln(s1);
  writeln(tongchan);
  writeln(tong23);

  return 0;
end;

$#khanhtaon$