%I#40 2022年9月8日08:45:02

%S 1,0，-1,1,2,3,7,46210944783519783236185116，

%电话：391376433956083065015485621，

%电话：153175513056180249189030531428945090978436751221570525

%N二次递归a（N）=a（N-1）^2-a（N-2），对于N>=2，a（0）=1，a（1）=0。

%H Vincenzo Librandi，n的表格，n=0..16的a（n）</a>

%H A.V.Aho和N.J.A.Sloane，<A href=“http://neilsloane.com/doc/doubly.html“>一些双指数序列，Fib.Quart.11（1973），429-437。

%H A.V.Aho和N.J.A.Sloane，<A href=“https://www.fq.math.ca/Scanned/11-4/aho-a.pdf“>一些双指数序列，Fib.Quart.11（1973），429-437。[参见<a href=“https://www.fq.math.ca/Scanned/114/aho-b.pdf“>此处</a>为缺失的页面。]

%H<a href=“/index/Aa#AHSL”>形式a（n+1）=a（n）^2+</a>

%F（n）^2=a（n+1）+a（n-1），a（-1-n）=a（n）。

%F对于n>=4，a（n）=天花板（c^（2^n）），c=1.0303497388742745024606710866\

%传真：16436302563960998408889321488508667424048981473368773165340730475719244472111。。。

%F和c^（1/4）=1.007502578587710605024343257517358…-蛋白克隆，2007年4月16日

%e a（6）=a（5）^2-a（4）=3^2-2=7。

%t加入[{a=1，b=0}，表[c=b^2-a；a=b；b=c，{n，13}]]（*_Vladimir Joseph Stephan Orlovsky_，2011年1月18日*）

%t循环表[{a[0]==1，a[1]==0，a[n]==a[n-1]^2-a[n-2]}，a，{n，13}]（*_Wincenzo Librandi_，2012年11月11日*）

%o（PARI）a（n）=如果（n<0，a（-1-n），如果（n<2，1-n，a（n-1）^2-a（n-2）））/*迈克尔·索莫斯，2005年5月5日*/

%o（岩浆）I:=[1,0]；[n le 2选择I[n]else Self（n-1）^2-Self：n in[1..15]]；//_G.C.Greubel，2019年6月9日

%o（鼠尾草）

%o定义a（n）：

%o如果（n==0）：返回1

%o elif（n==1）：返回0

%o else：返回a（n-1）^2-a（n-2）

%o[a（n）for n in（0..15）]#_G.C.Greubel_，2019年6月9日

%o（间隙）a:=[1,0]；；对于[3..15]中的n，做a[n]：=a[n-1]^2-a[n-2]；od；a、 #个_G.C.Greubel，2019年6月9日

%Y参考A058182。

%K符号

%0、5

%2000年11月15日，安利底特律