登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A074885号
对于整数x>0、y>1、M>0,数字的形式不是x^2+M*y^2。
2
1, 2, 3, 4, 6, 7, 11, 14, 15, 23, 30, 35, 38, 39, 42, 47, 62, 71, 78, 83, 87, 95, 110, 119, 138, 143, 155, 158, 167, 182, 195, 203, 210, 215, 222, 227, 230, 255, 263, 282, 287, 302, 318, 327, 335, 383, 390, 395, 398, 435, 447, 455, 462, 483, 503
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,2
评论
"... 730847, 911027, 1011218, 1122558, 1153547, 1191302, 1195862, 1198823, 1200023, 1215843, 1230990, 1586343, 1607627, 1875902.
有强有力的数字证据表明,该系列以1875902结束。
我计算该系列有436个成员<=1875902。
1875902看起来是这个属性中最大的自然数n(我已经检查了100000000)。
如果为真,每个足够大的数都可以表示为x^2+M*y^2,其中x>0,y>1,M>0),或者(平淡地)表示为平方和(
A000290型
)和一个非平方自由数(
A013929号
).
" -
克利斯·博伊德
(和修改人
罗伯特·威尔逊v
2012年9月30日)
小于或等于10^k,k=1…7:6,22,81,210,367,424,436的项数。
形式x^2+m*y^2在k种不同方式下的最小数,k=0…:1,5,21,13,25,37,41,68,52,81,73,100,97,160,169,148,145,153,193,261,288-
罗伯特·威尔逊v
2012年9月30日
参考文献
发布到2002年8月24日下午03:04和8月26日下午03:00的sci.mah
克利斯·博伊德
链接
T.D.Noe,
n=1..436时的n,a(n)表
(可能已完成)
埃里克·魏斯坦的数学世界,
佩尔方程。
数学
notOfTheFormQ[n_]:=Do[r=减少[x>=1&y>1&&x^2+m*y^2==n,{x,y},整数];
如果[r=!=假,返回[True]],{m,1,天花板[(n-1)/4]}]=!=
正确;
收割[Do[If[notOfTheFormQ[n],打印[n];
母猪[n]],{n,1600}]][[2,1]](*
Jean-François Alcover公司
2012年9月28日*)
fQ[n_]:=区块[{flg=0,lmt=1+Floor@Sqrt@n,m,x,y=2},同时[y<lmt&&flg==0,x=1;同时[m=楼层[(n-x^2)/y^2];
m>0&&Mod[n-x^2,y^2]!=
0,x++];
如果[n==x^2+m*y^2,flg=1];
y++];
flg==0];
选择[
范围@509
,fQ](*比上面快得多,
罗伯特·威尔逊v
2012年9月29日*)
mx=1000;
cnt=表[0,{mx}];
做[q=x^2+m*y^2;如果[q<=mx,cnt[[q]]++],{m,(mx-1)/4},{x,平方[mx-4 m]},}y,2,平方[(mx-x^2)/m]}];
压扁[位置[cnt,0]](*
T.D.诺伊
2012年9月28日*)
黄体脂酮素
(Perl)$xleast=1$
yleast=2$
开始=1$
范围=2000000$
xprev=$xleast-1;
对于($k=0;($k+$yleast)*($k+$yleaast)<=$start+$range$
k++){$asquares[$k]=($k+$yleast)*($k=$start;$k<$start+$range;$k++)}&donum;}子定义{$nm=$k-$xprev*$xprev;for($i=$xprew;$i<=$nm;$i++){if(($nm-=$i+$i+1)<0){last;}if(&ncheck($nm)>0){return;}}打印f(“%d\n”,$k);}
子检查{$j=0;while(($sq=$asquares[$j++])<=$_[0]){if($_[0]%$sq==0){return 1;}}返回0;}
(PARI)正常(n)=我的(k=1);
while(k*k<n,如果(!issquarefree(n-k^2),return(0));
k++);
1s=[];
对于(n=11000,如果(isOK(n),s=concat(s,n));
秒\\
科林·巴克
2014年4月26日
交叉参考
上下文中的顺序:
A113243号
A130690型
A308189型
*
A215231号
A301512型
A091336号
相邻序列:
A074882号
A074883号
A074884号
*
A074886号
A074887号
A074888号
关键词
非n
,
美好的
作者
克利斯·博伊德
和
罗伯特·威尔逊v
2002年9月12日
状态
经核准的
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
演示
|
索引
|
浏览
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人
OEIS基金会。
许可协议、使用条款、隐私政策。
.
上次修改时间:美国东部夏令时2024年9月21日04:44。
包含376079个序列。
(在oeis4上运行。)