uses math;
function nto(n:int64):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;
var a:array[0..1000007] of int64;
 ans,t : int64;
 i,j,n:longint;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln;
ans := -maxlongint;
t := 0;
for i := 2 to n do
begin
 if nto(i) then
begin
  t := max(a[i],t+a[i]);
  ans := max(ans,t);
end
 else t := t + a[i];
end;
writeln(ans);
readln
end.

uses crt;
var i,m,n,j,s,max,x:longint; a,b:array[1..1000000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
   if a>1 then nt:=true else nt:=false;
   for i:=2 to trunc(sqrt(a)) do 
      if a mod i=0 then nt:=false;
end;
begin
clrscr;
   readln(n);
   for i:=1 to n do 
      begin 
         read(a[i]);
         if nt(i) then 
            begin 
               inc(m);
               b[m]:=i;
            end;
      end;
   max:=low(longint);
   for i:=1 to m do 
      for j:=i to m do
         begin 
            s:=0;
            for x:=b[i] to b[j] do s:=s+a[x];
            if s>max then max:=s;
         end;  
   writeln(max);
end.