%我#25 2022年10月24日12:27:13

%S 1,1,3,13217166932171736321751459081283430597376997281，

%电话：3699017428454717709381715649628841，

%电话：629048832029560712500656614632731000559996987825552723

%N a（N）=（a（N-1）^2+a（N-2）^2+a（N-l）*a（N-2））/a（N-3），带有三个初始值。

%H Seiichi Manyama，n的表格，n=0..17的a（n）</a>

%F a（n）~1/6*c^（（（1+sqrt（5））/2）^n），其中c=1.902254978346365075882696720546123493664….-_Vaclav Kotesovec_，2015年5月6日

%F a（n）=6*a（n-1）*a（n-2）-a（n-1_Bruno Langlois_，2016年8月21日

%p a:=proc（n，k）选项记忆；

%p如果n<3，则为1

%p其他（a（n-1）^2+a（n-2）^2+a（n-l）*a（n-2））/a（n-3）

%p fi；结束时间：

%p序列（a（n），n=0..12）；#_G.C.Greubel_，2019年12月19日

%t循环表[{a[0]==1，a[1]==1,a[2]==1，a[n]==（a[n-1]^2+a[n-2]^2+a[n-1]*a[n-2]）/a[n-3]}，a，{n，0,10}]（*Vaclav Kotesovec_，2015年5月6日*）

%tnxt[{a，b，c}]：={b，c，（c^2+b^2+b*c）/a}；NestList[nxt，{1,1,1}，10][[All，1]]（*哈维·P·戴尔，2022年10月24日*）

%o（PARI）a（n）=如果

%o（岩浆）I:=[1,1,1]；[n le 3选择I[n]else（Self（n-1）^2+Self_G.C.Greubel，2019年12月19日

%o（鼠尾草）

%o@CachedFunction

%o定义a（n）：

%o如果（n＜3）：返回1

%o else：返回（a（n-1）^2+a（n-2）^2+a（n-l）*a（n-2））/a（n-3）

%o【a（n）代表n in（0..12）】#_G.C.Greubel_，2019年12月19日

%o（间隙）a:=[1,1,1]；；对于[4..12]中的n，做a[n]：=（a[n-1]^2+a[n-2]^2+a[n-1]*a[n-2]）/a[n-3]；od；a、 #个_G.C.Greubel，2019年12月19日

%Y参考A064098、A072882、A165896。

%K nonn公司

%0、4

%A _Jaume Oliver Lafont_，2009年9月29日

%2009年10月13日，Jaume Oliver Lafont_删除了E“frac”关键字