const s=6; {требуемое расстояние между элементами}
var 
    N: integer;     {количество чисел}
    x: integer;     {очередное число}
    a: array[0..s-1] of integer;
    n1,n2,n3,n6: integer; {счетчики}
    k: integer;     {количество пар}
    i: integer;     {счётчик для ввода}
    ia: integer;    {текущий индекс в массиве a}
begin
    readln(N);
    {ввод первых s чисел}
    for i:=0 to s-1 do readln(a[i]);
    {ввод и обработка остальных значений}
    n1:=0; n2:=0; n3:=0; n6:=0;
    k := 0; ia:=0;
    for i:=s to N-1 do begin
        readln(x);
        if a[ia] mod 6 = 0 then n6 := n6 + 1;
        if a[ia] mod 3 = 0 then n3 := n3 + 1;
        if a[ia] mod 2 = 0 then n2 := n2 + 1;
        n1 := n1 +1;
        if x mod 6 = 0 then k := k + n1
        else if x mod 3 = 0 then k := k + n2
        else if x mod 2 = 0 then k := k + n3
        else k := k + n6;
        a[ia] := x;
        ia := (ia+1) mod s
    end;
    writeln(k)
end.