显示找到的2个结果中的1-2个。
第页1
的特征函数A014486号如果n的二进制展开完全平衡,则.a(n)=1,否则为零。
+10 6
1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
例子
0代表空括号,因此a(0)=1。
2具有二进制展开式“10”,对应于“()”,因此a(2)=1。
3具有二进制展开式“11”,但“((”不是格式良好的括号,因此a(3)=0。
10具有二进制展开式“1010”,对应于格式良好的括号“()()”,因此a(10)=1。
38具有二进制展开式“100110”,但“())(()”不是格式良好的括号,因此a(38)=0。
MAPLE公司
A080116号:=proc(n)局部c,lev;水平:=0;c:=n;而(c>0)do-lev:=lev+(-1)^c;c:=地板(c/2);如果(lev<0),则返回(0);fi;od;如果(lev>0),则返回(0);否则返回(1);fi;结束;
黄体脂酮素
(鼠尾草)
lev=0
当n>0时:
lev+=(-1)^n
如果lev<0:返回0
n=无/无2
如果lev>0,则返回0,否则返回1
(平价)A080116号(n) ={my(k=0);while(n,k+=(-1)^n;n>>=1;if(k<0,return(0));(0==k);}\\安蒂·卡图恩2019年8月23日
1, 7, 8, 10, 13, 14, 16, 18, 19, 21, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 40, 41, 42, 44, 45, 47, 48, 49, 50, 51, 53, 55, 57, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 77, 78, 79, 80, 82, 84, 86, 87, 88, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100, 101
数学
s[p_,u_]:=总和[JacobiSymbol[j,p],{j,1,u}];加入[{1},选择[Range[100]!(p=素数[#];全真值[范围[(p-1)/2],s[p,#]>=0&])&]](*Jean-François Alcover公司2016年3月7日*)
搜索在0.004秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日11:40。包含376084个序列。(在oeis4上运行。)
|