Maple Арифметическая прогрессия с простыми числами

[Nadiya17]

Данная программа ниже рабочая. В ней мы задаем арифметическую прогрессию и затем она выводит простые числа идущие подряд. Мне нужно завести счетчик который в итоге будет определять наибольшее число подряд идущих простых чисел. Например 1 3 5 7 9 11 13 15 Единицу мы не учитываем 3 5 7 наибольшая длина поэтому программа должна вывести 3


f:=proc()
>
> local f,a,b;
>
> f:=array();
>
> sieveae(f);
>
> end:
>
> sieveae:=proc(n) local x,i,y,P,z,d;
> z:=array(1..n); z[1]:=1;d:=30;
> for i from 2 to n do z[i]:=z[i-1]+d;
> od;x := array(1..z[n]);for i from 1 to n do x[i]:=1; od; x[1]:=0; for y from 2 while(y^2 <= z[n]) do
> if(x[y]=1) then for i from 2 while(i*y <= z[n]) do x[i*y]:=0; od; fi; od;
> P:={}; for i from 1 to n do if(x[z[i]]=1) and (x[z[i+1]]=1) then P:= P union {z[i],z[i+1]}; fi; od; print(P); end;