|
|
266548英镑 |
| 对于一些正整数x和y,最小素数p为n+p^3=x^2+y^3,如果没有这样的素数p,则为0。 |
|
4
|
|
|
71, 2, 2, 5, 2, 3767, 3, 7, 7, 2, 3, 23, 53, 13, 17, 13, 2, 3, 2, 7, 2, 23, 11, 2, 17, 2, 7, 5, 2, 2, 3, 19, 257, 8039, 13, 2, 2, 59, 3, 5, 17, 3, 2, 61, 2, 3, 3, 37, 313, 2, 631, 17, 5, 3, 17, 2, 17, 2, 7, 97, 2, 47, 3, 29, 2, 2, 31, 47, 2, 7, 19
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,1
|
|
评论
|
猜想:(i)任何整数都可以写成x^2+y^3-p^3,其中x和y是正整数,p是素数。
(ii)每个整数都可以写成x^2-y^3+p^3,其中x和y是正整数,p是素数。
|
|
链接
|
|
|
例子
|
a(0)=71,因为0+71^3=588^2+23^3带有71素数。
a(3)=5,因为3+5^3=8^2+4^3带有5素数。
a(5)=3767,因为5+3767^3=214886^2+1938^3带有3767素数。
a(2966)=68371,因为2966+68371^3=17867983^2+6992^3带有68371素数。
a(7880)=51137,因为7880+51137^3=10176509^2+31128^3具有51137素数。
|
|
数学
|
p[n_]:=p[n]=素数[n]
SQ[n_]:=SQ[n]=整数Q[Sqrt[n]
Do[x=1;标签[bb];执行[If[SQ[n+p[x]^3-y^3],打印[n,“”,p[x];转到[aa]],{y,1,(n+p[x]^3-1)^(1/3)}];x=x+1;转到[bb];标签[aa];继续,{n,0,70}]
|
|
黄体脂酮素
|
(PARI)isokp(p,n)={my(s=n+p^3);对于(k=1,sqnint(s,3),如果(q=s-k^3)&&issquare(q),返回(1););}
a(n)={p=2;while(!isokp(p,n),p=下一素数(p+1));p;}\\米歇尔·马库斯,2016年1月4日
(PARI)a(n,{plim=2})=forprime(p=plim,oo,c=n+p^3;对于(i=1,sqrtnint(c,3),如果(issquare(c-i^3)&&c-i^3>0,return(p)))
第一个(n,{plim=100})={my(res=vector(n),l=List(),s,i,c);
对于(u=1,平方((n+plim^3)\1-1),对于(v=1,sqrtnint((n+plim^2)\1-u^2,3),listput(l,u^2+v^3)));l=集合(l);对于素数(p=2,plim,s=1;而(l[s]<p^3+1,s++);对于(i=s,#l,c=l[i]-p^3;如果(c<=n,如果(res[c]==0,res[c]=p)
,下一个(2)));对于(i=1,n,如果(res[i]==0,res[i]=a(i,plim+1));concat([71],res)}\\大卫·A·科内斯2017年12月30日
|
|
交叉参考
|
囊性纤维变性。A000040型,A000290型,A000578号,A055394号,A266152型,A266153型,A266230型,A266231型,A266277型,A266314型,A266363型,A266364型,A266528型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|