登录
A274143号
注释中定义的第n代树T(1/3)中的整数数。
2
1, 1, 1, 1, 2, 2, 2, 4, 4, 5, 8, 9, 12, 16, 20, 26, 34, 44, 57, 74, 97, 125, 162, 212, 272, 356, 462, 597, 780, 1010, 1311, 1706, 2210, 2873, 3732, 4841, 6294, 8168, 10608, 13781, 17886, 23237, 30172, 39177, 50891, 66072, 85813, 111446, 144706, 187947, 244059, 316937, 411618, 534503, 694153, 901461
抵消
0, 5
评论
设T*是由这些规则生成的根为0的无限树:如果p在T*中,则p+1在T*,x*p在Tx中。设g(n)是第n代的节点集,使g(0)={0},g(1)={1},g(2)={2,x},c(3)={3,2x,x+1,x^2}等。设T(r)是用r代替x得到的树。
请参见A274142型有关相关序列的指南。
链接
例子
对于r=1/3,我们有g(3)={3,2r,r+1,r^2},其中只有3是整数,因此a(3)=1。
MAPLE公司
A274143号:=程序(r)
局部gs,n,gs2,el,a;
gs:=[2,r];
对于n,从3 do
gs2:=[];
对于el-in-gs-do
gs2:=[op(gs2),el+1,r*el];
结束do:
gs:=gs2;
a:=0;
对于el-in-gs-do
如果类型为(el,'integer'),则
a:=a+1:
结束条件:;
结束do:
打印(n,a);
结束do:
结束进程:
A274143号(1/3) ; #R.J.马塔尔2016年6月17日
数学
z=18;t=Join[{0}},Expand[NestList[DeleteDuplicates[Flatten[Map[{#+1,x*#}&,#],1]&,{1},z]]];
u=表[t[[k]]/。x->1/3,{k,1,z}];
表[Count[Map[IntegerQ,u[[k]]],True],{k,1,z}]
交叉参考
关键词
非n
作者
克拉克·金伯利2016年6月11日
扩展
更多术语来自刘肯尼(Kenny Lau),2016年7月4日
状态
经核准的