[x,y,z]=ndgrid(1:7);
p=[x(:),y(:),z(:)];%获得所有可能的3个数的排列
r=p(:,1)==p(:,2)|p(:,2)==p(:,3);
p(r,:)=[];%除去有连续值得排列
a=zeros(1,254);
a(1:3)=p(1,:);%选取p的第一行作为最开始三个数
p(1,:)=[];%删除掉该行,不再允许该组合出现
for ii=4:254
ind=find(a(ii-2)==p(:,1)&a(ii-1)==p(:,2),1,'last');%从p中找到前两个均和a最后两个数相等的一行
a(ii)=p(ind,3);%把该行最后一个数添加到数列最后
p(ind,:)=[];%删除掉该行,不再允许该组合出现
end
以上程序得到的数列a是符合条件的一种情况
结果不唯一