|
| |
|
| A147808号 |
| 平衡的n位数字之和：前[n/2]位数字与后[n/2位数字的和相同。 |
|
4
|
|
|
|
45, 495, 49500, 3314850, 331431000, 27336542310, 2733612983100, 238305122029260, 23830484311542600, 2140037814262627400, 214003761418373774000, 19587943639318412097360, 1958794348735327250973600, 181693537570273520779480800
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
在n=3位之前，唯一的平衡数是回文，从n=4开始，有非倒排平衡数，cf。A145808号.
|
|
|
链接
|
|
|
|
公式
|
lima（2n+1）/a（2n）=100，lima（2 n）/a（2 n-1）=90（如n->oo）。
|
|
|
例子
|
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.
|
|
|
数学
|
balQ[n_]：=模块[｛idn=IntegerDigits[n]，len=Floor[InterLength[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日*）
|
|
|
黄体脂酮素
|
（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]~），t=10^（n\=2）*[100，45]~；总和（i=10^（n-1），10^n-1，SC[A007953号（i） ]*[10，[i，1]*t]~））}
|
|
|
交叉参考
|
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
