%I#62 2023年7月28日11:26:21
%S 0,052583259595046987048996183999320139998590939999722967,
%电话99999 479435999999059545999999835864599999997221695,
%电话99999999 5423887999999926451999999988439336999999982190246999999999730632819999999995994018199999999941340896
%N a(N)是低于10^N的以10为基数的弹性数。
%C弹性数的位数既不是从左到右单调递增也不是递减。
%H Muniru A Asiru,<A href=“/A204692/b204692.txt”>n,A(n)表,n=1..200</a>
%H Euler项目,<a href=“http://projecteuler.net/问题=113“>Non-bouncy数字问题113</a>
%H<a href=“/index/Rec#order_12”>常系数线性重复出现的索引条目,签名(21,-165715,-19803762,-50824950,-34651705,-561111,-10)。
%F a(1)=a(2)=0。对于n>2,a(n)=10^n-二项式(n+9,n)+10*n-和{i=1..n}二项法(i+9,i)=10*n--二项式。【由_Altug Alkan修订,2018年9月28日】
%F From _ Chai Wah Wu_,2023年7月28日:(开始)
%当n>12时,F a(n)=21*a(n-1)-165*a(n-2)+715*a。
%传真:x^3*(89*x^8-798*x^7+3175*x^6-7350*x^5+10890*x^4-10668*x^3+6846*x^2-2700*x+525)/((x-1)^11*(10*x-1))。(结束)
%e a(3)=525,因为有525个基数-10的弹性数<10^3;最小值为A152054(1)=101,最大值为A152054(525)=989。
%e a(4)=8325,因为A152054(8325)=9989是最大的基数-10反弹数<10^4。
%pa:=n->`如果`(n<=2,0,10^n-(二项式(n+10,10)+二项式[n+9,9)-1-10*n));序列(a(n),n=1..25);#_Muniru A Asiru_,2018年9月28日
%t a[n_]:=10^n-二项式[n+10,10]-二项式[n+9,9]+10*n+1;阵列[a,25](*_Stefano Spezia_,2018年9月29日*)
%o(PARI)a(n)=如果(n<3,0,10^n-(二项式(n+10,10)+二项式式(n+9,9)-1-10*n));\\_阿尔图格·阿尔坎,2018年9月27日
%o(间隙)a:=[0,0];;对于[3..25]中的n,做a[n]:=10^n-(二项式(n+10,10)+二项式式(n+9,9)-1-10*n);od;a、 #个_Muniru A Asiru_,2018年9月28日
%o(岩浆)[n le 2选择0 else(10^n-二项式(n+10,10)-二项法(n+9,9)+10*n+1):n in[1..25]];//_G.C.Greubel,2018年11月24日
%o(鼠尾草)
%o定义A204692(n):
%o如果n<=2:
%o返回0
%o其他:
%o返回(10^n-二项式(n+10,10)-二项法(n+9,9)+10*n+1)
%o【A204692(n)代表n in(1..25)】#_G.C.Greubel_,2018年11月24日
%Y参考A152054。
%K nonn,基础,简单
%氧1,3
%2012年1月18日,《托马斯·奎克》
%E由_Altug Alkan修订和扩展,2018年9月27日
|