OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A233346型 形式为p(k)^2+q(m)^2且k>0和m>0的素数,其中p(.)是配分函数(A000041号),q(.)是严格配分函数(A000009号). 17
2, 5, 13, 17, 29, 37, 41, 53, 61, 73, 89, 101, 109, 113, 137, 149, 157, 193, 229, 241, 349, 373, 509, 709, 733, 1033, 1049, 1213, 1249, 1453, 1493, 1669, 1789, 2141, 2237, 2341, 2917, 3037, 3137, 3361, 4217, 5801, 5897, 6029, 6073, 8821, 10301, 10937, 11057, 18229, 18289, 19249, 20173, 20341, 20389, 21017, 24001, 30977, 36913, 42793 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
猜想:序列包含无限多个项。
这源于A223307型类似地A232504型意味着有无穷多个p(k)+q(m)形式的素数,其中k和m是正整数。
链接
Z.-W.孙,关于^n+bn模m,arXiv预印本arXiv:1312.1166[math.NT],2013-2014。
例子
a(1)=2,因为p(1)^2+q(1)*2=1^2+1^2=2。
a(2)=5,因为p(1)^2+q(3)^2=1^2+2^2=5。
数学
SQ[n_]:=SQ[n]=整数Q[Sqrt[n]
n=0
Do[If[Mod[Prime[m]+1,4]>0,Do[If[PartitionsP[j]>=Sqrt[Prime[m]],转到[aa],
如果[SQ[Prime[m]-PartitionsP[j]^2]==False,转到[bb],Do[If[PartitionsQ[k]^2==Prime[m]-PartionsP[j]^2,
n=n+1;打印[n,“”,质数[m]];转到[aa]];如果[PartitionsQ[k]^2>素数[m]-分区P[j]^2,转到[bb]];继续,{k,1,2*Sqrt[Prime[m]]}]];
标签[bb];继续,{j,1,Sqrt[Prime[m]]}];
标签[aa];继续,{m,14475}]
交叉参考
关键词
非n
作者
孙志伟2013年12月7日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月23日12:41。包含372763个序列。(在oeis4上运行。)