var a: array[1..32000] of integer;
i,n : integer;
function nt(x: integer): boolean;
var i: integer;
begin
nt:=false;
if x<2 then exit;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit;
nt:=true;
end;
begin
write('n='); readln(n);<br />for i:=1 to n do<br />begin<br />write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if nt(a[i]) then write(a[i],' ');
readln
end.

var t,i,n: integer;
function cp(x: integer): boolean;
begin
cp:=false;
if x<0 then exit;
if x=sqr(trunc(sqrt(x))) then cp:=true;
end;
begin
readln(n);
t:=0;
for i:=1 to n do
if cp(i) then t:=t+i;
write(t);
readln
end.