登录
OEIS由支持OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A000091号 k>=1时与a(2^e)=2相乘;当k>=2时,a(3)=2,a(3^e)=0;如果p>3且p==-1(mod 3),a(p^e)=0;如果p>3且p==1(mod 3),则a(p^e)=2。
1, 2, 2, 2, 0, 4, 2, 2, 0, 0, 0, 4, 2, 4, 0, 2, 0, 0, 2, 0, 4, 0, 0, 4, 0, 4, 0, 4, 0, 0, 2, 2, 0, 0, 0, 0, 2, 4, 4, 0, 0, 8, 2, 0, 0, 0, 0, 4, 2, 0, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 2, 4, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 2, 4, 0, 4, 0, 8, 2, 0, 0, 0, 0, 8, 0, 4, 0, 0, 0, 0, 4, 0, 4, 0, 0, 4, 2, 4, 0, 0, 0, 0, 2, 4, 0 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
克里斯蒂安·鲍尔,n=1..2000时的n,a(n)表
MAPLE公司
A000091号:=proc(n)局部b,d,nt,c;如果n=1,则返回(1);fi;c:=1;如果n mod 2=0,则c:=c*2;fi;如果n mod 3=0,则c:=c*2;fi;nt:=n;当nt mod 2=0时,do nt:=nt/2;od;当nt mod 3=0时,do nt:=nt/3;od;如果irem(n,9)=0,则返回(0);fi;b:=1;对于从3到nt的d,如果irem(nt,d)=0且isprime(d),则b:=b*(1+legendre(-3,d));fi;od;返回(b*c);结束;
数学
a[1]=1;a[n_]:=块[{b,d,nt,c=1},如果[Mod[n,2]==0,c=c*2];如果[Mod[n,3]==0,c=c*2];nt=n;而[Mod[nt,2]==0,nt=nt/2];而[Mod[nt,3]==0,nt=nt/3];如果[Mod[n,9]==0,返回[0]];b=1;对于[d=3,d<=nt,d++,如果[Mod[nt,d]==0&&PrimeQ[d],b=b*(1+JacobiSymbol[-3,d])]];返回[b*c]];表[a[n],{n,1,105}](*Jean-François Alcover公司2012年2月6日,Maple之后*)
交叉参考
关键字
非n,容易的,多重
作者
扩展
描述于2004年3月2日更正。(定义的旧描述A000086号,而不是这个序列。)
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月23日15:20。包含371916个序列。(在oeis4上运行。)