function a(k: integer): integer;
var n, min, res: integer;
begin
  min:=sqr(1)-5*1-1;
  for n:=1 to k do
  begin
    res:=sqr(n)-5*n+1;
    writeln('a(', n, ') = ', res);
    if res<min then min:=res;
  end;
  a:=min;
end;

var k, min: integer;
begin
  read(k);
  min:=a(k);
  writeln('min a(n) = ', min);
end.