登录
A247356型
对k进行编号,使d(r,k)=1,d(s,k)=1,其中d(x,k)=x的第k位二进制数字,r={sqrt(2)},s={squrt(3)}和{}=小数部分。
4
3, 5, 7, 16, 17, 19, 22, 23, 30, 32, 33, 41, 45, 49, 56, 61, 67, 74, 75, 76, 88, 90, 91, 98, 99, 101, 105, 108, 115, 116, 117, 120, 125, 131, 137, 138, 140, 141, 154, 158, 164, 167, 170, 172, 175, 178, 185, 188, 189, 193, 194, 199, 203, 221, 230, 231, 234
抵消
1,1
评论
每个正整数正好位于以下其中之一:A246356型,A246357型,A246358型,A247356型.
链接
克拉克·金伯利,n=1..1115时的n,a(n)表
例子
{sqrt(2)}具有二进制数字0,1,1,0,1,。。。
{sqrt(3)}具有二进制数字1,0,1,1,1,1,0,1,0,1,0,0,。。
因此a(1)=3,a(2)=5。
数学
z=500;r=分数部分[Sqrt[2]];s=分数部分[Sqrt[3]];
u=扁平[{ConstantArray[0,-#[2]]],#[[1]]}]&[RealDigits[r,2,z]]
v=压扁[{ConstantArray[0],-#[[2]]],#[[1]}]和[RealDigits[s,2,z]]
t1=表格[如果[u[[n]]==0&&v[[n]==0,1,0],{n,1,z}];
t2=表[如果[u[[n]]==0&&v[[n]]==1,1,0],{n,1,z}];
t3=表格[如果[u[[n]]==1&v[[n]==0,1,0],{n,1,z}];
t4=表格[如果[u[[n]]==1&v[[n]==1,1,0],{n,1,z}];
压扁[位置[t1,1]](*A246356型*)
压扁[位置[t2,1]](*A246357型*)
压扁[位置[t3,1]](*A246358型*)
压扁[位置[t4,1]](*A247356型*)
关键词
非n,容易的,基础
作者
克拉克·金伯利2014年9月17日
状态
经核准的