var n, i, ans, a, ch13, nech13, chN13, nechN13 : integer;
q:array[0..4] of integer;

begin
    read(n);
    for i:=0 to 4 do begin
        read(q[i]);
    end;

    ans:=0;
    ch13:=0; nech13:=0; chN13:=0; nechN13:=0;
    for i:=5 to n-1 do begin
        read(a);

        if(q[0] mod 2=0) then begin
            if(q[0] mod 13=0) then
                ch13+=1
            else
                chN13+=1;
        end
        else
            if(q[0] mod 13=0) then
                nech13+=1
            else
                nechN13+=1;

        if(a mod 2=0) then begin
            if(a mod 13=0) then
                ans+=nechN13;
            ans+=nech13;
        end
        else begin
            if(a mod 13=0) then
                ans+=chN13;
            ans+=ch13;
        end;

        q[0]:=q[1];
        q[1]:=q[2];
        q[2]:=q[3];
        q[3]:=q[4];
        q[4]:=a;
    end;

    write(ans);
end.