use strict;

my $n = <>;
my @input = split(/\s+/, <>);

my $answer = 0;

for (my $i = 0; $i < $n; $i++) {
    if (&check) {
        print $answer;
        last;
    }

    if ($input[$i] == $i + 1) {
        if ($i == 0) {
            &shift_right($i);
        } elsif ($i == $n - 1) {
            &shift_left($i);
        } else {
            if ($input[$i - 1] != $i) {
                &shift_right($i);
            } elsif ($input[$i + 1] != $i + 2) {
                &shift_left($i);
            }
        }
    }

    $answer++;
}

sub shift_right {
    my $i = shift;
    my $tmp = $input[$i];
    $input[$i] = $input[$i + 1];
    $input[$i + 1] = $tmp;
}

sub shift_left {
    my $i = shift;
    my $tmp = $input[$i];
    $input[$i] = $input[$i - 1];
    $input[$i - 1] = $tmp;
}

sub check {
    my $self = @_;
    for (my $i = 0; $i < $n; $i++) {
        if ($i+1 == $input[$i]) {
            return 0;
        }
    }
    return 1;
}