%I#17 2019年10月5日04:05:27
%S 0,1,0,1,1,0,2,0,1,3,0,2,4,0,2,2,0,2,2,0,3,11,0,6,0,2_2,0,2,12,12,
%温度0,3,12,5,0,4,26,0,2,5,5,0,11,24,0,3,0,0,10,2,0,2,2,1,2,8,0,3,
%U 11,16,0,3,3,0,2,10,16,6,47,0,5,31,0,2,8
%N a(0)=0;a(1)=1;对于n>1,如果a(n-1)出现了两次或更多次,则a(n)=a(n-1)之前两次出现之间的项数,否则a(n。
%C在前10000个术语中,最大的条目是9040,这是两次出现之间的术语数217。非零值的最长运行是19,从a(9740)=3开始,到a(9758)=6400结束。未出现的最小数字是258。
%H Scott R.Shannon,n的表格,n=0..10000的a(n)</a>
%e a(3)=1,因为a(3-1)=a(2)=0和a(0)=0之间有1项。
%e a(5)=0,因为a(5-1)=a(4)=1和a(3)=1之间没有项。
%e a(7)=0,因为a(7-1)=a(6)=2在n=7之前只出现过一次。
%e a(12)=4,因为a(12-1)=a(11)=2和a(6)=2之间有4个项。
%e a(22)=11,因为在a(22-1)=a(21)=3和a(9)=3之间有11个项。
%p a:=proc(n)选项记忆;局部t,j;
%p如果n<2,则n其他t:=a(n-1);
%从2到n do的j的p
%p如果a(n-j)=t,则返回j-2 fi
%p od;0
%功率因数
%p端:
%p序列(a(n),n=0..100);#_Alois P.Heinz_,2019年10月4日
%t a={0,1};While期间[长度@a<90,p=压扁@位置[反向@a,最后一个@a, 1, 2]; 附加到[a,如果[长度@p==1,0,p[2]]-p[1]-1]]];a(*Giovanni Resta,2019年10月4日*)
%Y参考A181391,A309261。
%K nonn公司
%0、7
%A _Scott R.Shannon_,2019年10月4日
|