%I M0458#52 2022年11月15日02:42:00
%S 0,1,1,2,3,4,5,5,6,6,7,8,8,9,10,11,12,13,14,15,16,17,18,19,19,
%T 20,20,21,22,23,24,25,25,26,27,27,28,29,30,31,31,32,32,33,34,34,35,
%U 36,37,37,38,39,40,41,41,42,42,43,44,44,45,46,47,48,49,50,51,51,52,53
%N a(0)=0;当n>0时,a(n)=n-a(a(a)(n-1))。
%C第n项规则:a(n)=An,其中An表示n的Lamé先行项(或其右移),通过将Zeckendorffian展开式中的每个Lm(i)(Lm(n)=Lm(n-1)+Lm(n-4):A003269)替换为Lm(i-1)(A1=1)得到。例如:58=50+7+1,那么a(58)=36+5+1=42Diego Torres(torresvillarroel(AT)hotmail.com),2002年11月24日
%C a(A194081(n))=n,a(m)<>n,对于m<A19408l(n)。-_Reinhard Zumkeller,2011年8月17日
%D·D·霍夫斯塔特,“哥德尔、埃舍尔、巴赫”,第137页。
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%H Reinhard Zumkeller,n的表格,n=0..10000的a(n)</a>
%H Nick Hobson,用于此序列的Python程序</a>
%Hofstadter型序列的索引项</a>
%H<a href=“/index/Go#GEB”>“Goedel,Escher,Bach”序列的索引条目</a>
%F猜想:a(n)=floor(c*n)+0或1,其中c是x^4+x-1=0的正实根,c=0.724491959000515611588372282…-Benoit Cloitre_,2002年11月5日
%F注:在前面的推测中,0或1的差异实际上可能在-1和2之间,例如,参见a(120)=88,获得2的差异,a(243)=175,获得-1的差异_Pierre Letouzey_,2018年7月11日
%p H:=proc(n)选项记忆;如果n=1,则1其他n-H(H(H,H(n-1)));fi;终末程序;
%ta[0]:=0;a[n]:=a[n]=a[n]=n-a[a[n-1]]];表[a[n],{n,0,73}](*_Alonso del Arte_,2011年8月17日*)
%o(哈斯克尔)
%o a005375 n=a005375_列表!!n个
%o a005375_list=0:1:zipWith(-)
%o[2..](地图a005375(地图a00375(地图a05375(尾巴a005375_列表)))
%o--_Reinhard Zumkeller,2011年8月17日
%o(SageMath)
%o@CachedFunction#a=A005375
%o定义a(n):如果(n==0)其他n-a(a(a(a-(n-1))),则返回0
%o[a(n)表示n在(101)范围内]#_G.C.Greubel_,2022年11月14日
%K诺恩,不错
%0、4
%A _N.J.A.斯隆_
%E来自James A.Sellers_的更多条款,2000年7月12日
|