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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A005089号 不同素数==1(mod 4)除以n。 10
0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 2, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 2, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,65
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
埃蒂安·福夫里和彼得·科曼斯,关于Dirichlet双二次域,arXiv:2001.05350[math.NT],2020年。
配方奶粉
如果p==1(mod 4),则a(p^e)=1的加法,否则为0。
发件人莱因哈德·祖姆凯勒2013年1月7日:(开始)
a(n)=总和{k=1。。A001221号(n) }A079260美元(A027748美元(n,k))。
一个(A004144号(n) )=0。
一个(A009003年(n) )>0。(结束)
MAPLE公司
A005089号:=进程(n)
局部a、pe;
a:=0;
对于ifactors(n)[2]do中的pe
如果modp(op(1,pe),4)=1,则
a:=a+1;
结束条件:;
结束do:
a;
结束进程:
序列号(A005089号(n) ,n=1..100)#R.J.马塔尔2021年7月22日
数学
f[n]:=长度@选择[如果[n==1,{},FactorInteger[n]],Mod[#[1]],4]==1&];表[f[n],{n,102}](*雷·钱德勒2011年12月18日*)
a[n_]:=DivisorSum[n,Boole[PrimeQ[#]&Mod[#,4]==1]&];数组[a,100](*Jean-François Alcover公司,2015年12月1日*)
黄体脂酮素
(PARI)对于(n=1100,print1(sumdiv(n,d,isprime(d)*if((d-1)%4,0,1)),“,”)
(哈斯克尔)
a005089=总和。地图a079260。a027748_低
(岩浆)[#[p:p in PrimeDivisors(n)|p mod 4 eq 1]:n in[1..100]]//马吕斯·A·伯蒂2020年1月16日
交叉参考
囊性纤维变性。A001221号,A005091号,A005094号.
关键字
非n
作者
状态
经核准的

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

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

上次修改时间:2024年4月23日16:40 EDT。包含371916个序列。(在oeis4上运行。)