% function  y=t(m,n,maxprime)
%  works with  tplus7
%  no limit on the sizes  m,n
%  checks  10000000  at a time
function  y=t(m,n,maxprime)
format compact
step=10000000;
y=[];tic
for k=m:step:n
   x=tplus7(k,min(k+step,n),maxprime);
   if ~isempty(x)
     disp(x);
	 speak('Yes! Found!')
   end
   y=[y x]; disp(y)
   disp(['___  It took ',num2str(toc),' secs.'])
end

% 898716289     100000000
