program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MAXIN = 1000000;

var
  n, i, j, k, p, ans, c: integer;
  a, b: array [0..MAXIN] of integer;

begin
  readln(n);

  for i := 1 to n - 1 do
    read(a[i]);

  for i := 1 to n * 2 do
    b[i] := -1;

  read(c);

  b[1] := c;
  k := 0;
  p := 1;
  ans := 1;

  while(true) do
  begin
    inc(k);
    if (b[k] = -1) then
      break;
    for i := 1 to n - 1 do
      if (a[i] = b[k]) then
      begin
        inc(p);
        b[p] := i + 1;
        inc(ans);
      end;
  end;

  writeln(ans);
  readln;
  readln;
end.