%I#24 2016年2月11日09:36:35
%S 5,454063664330672984252693244243061522193596371979690177,
%电话:1786642816616124202621214518683283513132858524565,
%电话:1185222193704361069646525202864496534109349562778712068940404208578625208989613453470958156219245589526403847861388870507
%N通过a(N+2)定义序列S(a(0),a(1))是最小整数,这样,对于N>=0,a(N+1)/a(N+1。这是S(5,45)。
%C这与(5-4*x^2)/(1-9*x-x^2+7*x^3)的展开式定义的线性递归序列一致,仅限于n<=103_Bruno Berselli,2016年2月11日
%H Harvey P.Dale,n表,n=0..1000的a(n)</a>
%F a(n+1)=楼层(a(n)^2/a(n-1))+1,所有n>0_M.F.Hasler,2016年2月10日
%p a:=proc(n)选项记忆;
%p `如果`(n<2,[5,45][n+1],楼层(a(n-1)^2/a(n-2))+1)
%p端:
%p序列(a(n),n=0..30);#_Alois P.Heinz,2015年9月18日
%t nxt[{a_,b_}]:=模块[{c=天花板[b^2/a]},c=如果[c<=b^2/a,c+1,c];{b,c}];转座酶[NestList[nxt,{5,45},20]][[1]](*_Harvey P.Dale_,2014年2月11日*)
%o(PARI)a=[5,45];对于(n=2,30,a=concat(a,a[n]^2\a[n-1]+1));2016年2月10日,a.F.Hasler
%Y参考A022018-A022025、A022026-A022032。
%K nonn公司
%0、1
%一名R.K.男子_
%E Double-checked and edited by M.F.Hasler_,2016年2月10日
|