Writing the answer based on Google translate text
x=[0 1 0 1 1 1 0 1 1 1 1 0 1 1 1 0 1];
x=[~x(1) x ~x(end)];
c=0; %count
n=3; %set with n consecutive values of 1
for i=n+1:numel(x)-1
if sum(x(i-n+1:i))==n & ~x(i-n) & ~x(i+1) %exactly n values consecutively only
c=c+1;
end
end
c
