4

var s, i, a , b, j, cnt, n, d: Integer;
begin
s:=2;
  a:=4099;
  b:= 26985;
  s := 0;
  for i:=a to b do begin
    cnt := 0;
    d := 2;
    while (((d * d) < i)) do begin
      if (i mod d = 0) then begin
        cnt := cnt + 2;
      end;
      d:=d + 1;
    end;
    if ((cnt = 0) and (d * d = i)) then begin
      n:= i;
      while (n > 0) do begin
        s:= s + (n mod 10);
        n:= n div 10;
      end;
    end;
  end;
  writeln(s);
end.