Cái phần số lượng các số nguyên tố bạn tự xử lí nha =))))))))))))))))))))))))))

var n: integer;
    i: longint;
    f,g: text;

{----------------------------------------------}
Function nto(a: longint): string;
    var i: longint;
    t: boolean;
begin
    t := true;
    for i:=2 to a-1 do
  begin

      if (a mod i=0 ) then t:=false ;
      if a=2 then t:= true;
      if a=1 then t:= false;

  end;
  if t= true then write(g,a,' ');
end;
{----------------------------------------------}
Function mu(a: integer): integer;
    var   k: byte;
begin
    mu := 1;
    for k:=1 to a do
    mu := mu*10;
 end;
{----------------------------------------------}
Begin
     assign(f,'SNT.INP'); reset(f);
     assign(g,'SNT.OUT'); rewrite(g);
     readln(f,n);
     for i:= mu(n-1) to (mu(n)-1) do
       nto(i);
     close(f);
     close(g);
End.

uses crt;
var n,dem,i,m:longint; d:text;
a:array[1..10000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
    i:=2;
    while(a>1)and(a mod i<>0)do inc(i);
    nt:=i=a;
end;
begin
clrscr;
   assign(d,'SNT.INP');reset(d);
       readln(d,n);
   close(d);
   assign(d,'SNT.OUT');rewrite(d);
       m:=1;
       for i:=1 to n do m:=m*10;
       for i:=m div 10 to m-1 do
          if nt(i) then begin inc(dem); a[dem]:=i; end;
       writeln(d,dem);
       for i:=1 to dem do
          begin
             write(d,a[i],' ');
             if i mod 20=0 then writeln(d);
          end;
   close(d);
end.