uses crt;
var a:array[1..1000000] of longint;
i,n,max:longint;
function nt(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;
function tong_cp(i:longint):longint;
begin
if i=0 then exit(0);
if a[i]=sqr(trunc(sqrt(a[i]))) then exit(tong_cp(i-1)+a[i]);
exit(tong_cp(i-1));
end;
function phantuln(i:longint):longint;
begin
if i=0 then exit(0);
if a[i]=max then exit(phantuln(i-1)+1);
exit(phantuln(i-1));
end;
function tongle(i:longint):longint;
begin
if i=0 then exit(0);
if a[i] mod 2 = 1 then exit(tongle(i-1)+a[i]);
exit(tongle(i-1));
end;
function chandautien(i:longint):longint;
begin
if i=n+1 then exit(0);
if a[i] mod 2=0 then exit(a[i]);
exit(chandautien(i+1));
end;
function ledautien(i:longint):longint;
begin
if i=n+1 then exit(0);
if a[i] mod 2=1 then exit(a[i]);
exit(ledautien(i+1));
end;
function ntdautien(i:longint):longint;
begin
if i=n+1 then exit(0);
if nt(a[i])=true then exit(a[i]);
exit(ntdautien(i+1));
end;
begin
clrscr;
readln(n);
read(a[1]);
max:=a[1];
for i:=2 to n do
begin
read(a[i]);
if max<a[i] then max:=a[i];
end;
readln;
writeln(tong_cp(n));
writeln(phantuln(n));
writeln(tongle(n));
writeln(chandautien(1));
writeln(ledautien(1));
writeln(ntdautien(1));
readln;
end.
