var n,tong:longint;
function ktnt(n:longint):boolean;
var i:longint;
begin
        if n<2 then exit(false);
        for i:=2 to trunc(sqrt(n)) do
                if n mod i = 0 then exit(false);
        exit(true);
end;
procedure giai;
var i:longint;
begin
        tong:=0;
        for i:=1 to n do
        begin
                if ktnt(i)=true then tong:=tong+i;
        end;
        writeln(tong);
end;
begin
        assign(input,'bai_tap.inp'); reset(input);
        assign(output,'bai_tap.out'); rewrite(output);
        read(n);
        giai;
end.

uses crt;

var i,j,n,s,dem:integer;

begin

clrscr;

s:=0;

writeln('nhap n: ');readln(n);

for i:=1 to n do

begin

dem:=0;

for j:=1 to i do if i mod j = 0 then dem:=dem+1

if dem = 2 then s:=s+i;

end;

writeln('tong s: ',s);

readln;

end.