%I#14 2021年12月7日11:27:02

%S 45495495003314850331431000273365423102733612983100，

%电话：2383051220292602383048431154260021400378142627400，

%电话：214003761418373774000195879436393184120973601958794348735327250973600181693537570273520779480800

%N平衡的N位数字之和：前[N/2]位数字与后[N/2位数字的和相同。

%C在链接的“问题217”中，前半位数与后半位数之和相同的数字称为平衡数。（注意，此处“平衡”的含义既不是A020492的含义，也不是A031443的含义。）

%C在n=3位之前，唯一的平衡数是回文，从n=4开始，有非倒排平衡数，参见A145808。

%H Euler项目，<a href=“https://projecteuler.net/problem=217“>平衡数。问题217。

%F极限a（2n+1）/a（2n）=100，极限a（2 n）/a（2 n-1）=90（n->oo）。

%e a（1）=1+2++9; a（2）=11+22++99=11 a（1）；a（3）=101+111+121++191+202+...+989+999=（101*10+10*9）*a（1）；a（4）=1001+1010+1102+1111+1120+1203++9889+9898+9999.

%t balQ[n_]：=模块[{idn=IntegerDigits[n]，len=Floor[IntegerLength[n]/2]}，总计[Take[idn，len]]==总计[Take[idn、-len]]]；表[Total[Select[Range[10^n，10^（n+1）-1]，balQ]，{n，0,5}]（*这将生成序列的前六个项。要生成更多项，（1）将表的范围从（0,5）更改为（0,6）或（0,7）等，但程序运行的时间会越来越长。*）（*哈维·P·戴尔，2013年4月7日*）

%o（PARI）A147808（n）=｛local（t，c）；if（n=1，45，/*全局变量SC[sd]（用于n=2k和n=2k+1）存储具有<=n\2位数字和数字和=sd*/if（#SC！=n\2*9，SC=矢量（n\2*9，digsum，c=0；[sum（i=0,10^（n\2）-1，if（（i-digsum）%9==0&&digsum==sum（j=1，#t=Vecsmall（Str（i）），t[j]）-48*#t，c++；i）），c]））；如果（n%2==0，和（i=10^（（n=2）-1），10^n-1，SC[A007953（i）]*[1，i*10^n]~）；总和（i=10^（n-1），10^n-1，SC[A007953（i）]*[10，[i，1]*t]~））}

%K基，nonn

%O 1,1号机组

%A _M.F.Hasler，2008年11月23日

%E a（13）-a（14），来自_Kevin P.Thompson_，2021年12月5日