|
%I#48 2023年12月16日17:31:16
%S 1,1,5,17,57189625206568212252974409245757811681268081，
%电话：88540852924305796583257318992910535617453479678065，
%电话：11492595941379574658891253649936094140524467171367522333761451661944800114917380676549268761481297
%N a（0）=1，a（1）=1，a（N）=3*a（N-1）+a（N-2）+1。
%C某些简单递归程序（如所示的Lisp程序）对长度为n的输入进行调用的次数。
%C这是G.Detlefs考虑的序列家族[A，b:C，d:k]中的序列A（1,1；3,1；1），在下面给出的W.Lang链接中被视为A（A，b；C，d；k）_Wolfdieter Lang_，2010年10月18日
%D E.Hyvönen和J.Seppänen，LISP-kurssi，Osa 6（Funktonalinen ohjelmointi），Processori 4/1983，第48-50页（芬兰语）。
%H T.D.Noe，<a href=“/A033538/b033538.txt”>n的表，a（n）表示n=0..200</a>
%H A.Karttunen，<A href=“网址：http://www.iki.fi/~kartturi/software/stacks.lsp“>更多信息</a>
%H Wolfdieter Lang，关于某些非均匀三期复发的注释</a>
%H<a href=“/index/Rec#order_03”>带常系数的线性重复出现的索引条目，签名（4，-2，-1）。
%F来自R.J.Mathar_，2008年8月22日：（开始）
%F.O.g.F.：（1-3*x+3*x^2）/（1-x）*（1-3*x x ^2））。
%F a（n）=（4*A006190（n+1）-8*A0061900（n）-1）/3。（结束）
%F a（n）=4*a（n-1）-2*a（n-2）-a（n-3），a（0）=1=a（1），a。G.Detlefs观察。请参阅W.Lang链接_Wolfdieter Lang，2010年10月18日
%F a（n）=（4*（F（n，3）+F（n-1,3））-1）/3，其中F（n、x）是斐波那契多项式（参见A102426）_G.C.Greubel，2019年10月13日
%p a:=proc（n）选项记忆；如果（n<2），则返回（1）；否则返回（3*a（n-1）+a（n-2）+1）；fi；结束；
%t系数列表[系列[（1-3x+3x^2）/（1-4x+2x^2+x^3），{x，0,40}]，x]（*Jean-François Alcover_，2011年11月30日*）
%t递归表[{a[0]==a[1]==1，a[n]==3a[n-1]+a[n-2]+1}，a，{n，40}]（*或*）线性递归[{4，-2，-1}，{1,1,5}，41]（*H arvey P.Dale_，2012年1月5日*）
%t表[（4*（斐波那契[n，3]+斐波那奇[n-1,3]）-1）/3，{n，0,30}]（*_G.C.格鲁贝尔，2019年10月13日*）
%o（Lisp）（解除倒卖（lista）（cond（null（cdr lista））lista）
%o（哈斯克尔）
%o a033538 n=a033538_列表！！n个
%o a033538_列表=
%o 1:1：（map（+1）$zipWith（+）a033538_list
%o$map（3*）$tail a033538_list）
%o--_Reinhard Zumkeller，2011年8月14日
%o（PARI）a（n）=（[0,1,0；0,0,1；-1，-2,4]^n*[1；1；5]）[1,1]\\查尔斯·格里特豪斯IV_，2017年2月19日
%o（岩浆）I:=[1,1]；[n le 2在[1..40]]中选择I[n]else 3*Self（n-1）+Self[n-2）+1:n；//_G.C.Greubel，2019年7月10日
%o（鼠尾草）（（1-3*x+3*x^2）/（1-x）*（1-3*x-x^2，））系列（x，40）系数（x，稀疏=假）#_G.C.格鲁贝尔，2019年7月10日
%o（间隙）a:=[1,1]；；对于[3..40]中的n，做a[n]：=3*a[n-1]+a[n-2]+1；od；a、 #个_G.C.Greubel，2019年7月10日
%Y参见A001595、A006190、A033539、A102426。
%K nonn，很好，很容易
%0、3
%安蒂·卡图恩_
| 