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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A121085号 对于k=-3且0<c<=10^n的本原勾股线样三元组a^2+b^2=c^2+k的数目。 6

%I#12 2015年10月17日09:22:51

%编号:3,3029328812887128868528863628868362288886736932886752763

%对于k=-3且0<c<=10^N的本原勾股线样三元组a^2+b^2=c^2+k的个数。

%第一作者推测a(n)/10^n作为n->inf是1/(2*sqrt(3))=0.28867。。。

%e a(1)=3,因为有3种溶液(a,b,c)as(2,3,4),(5,6,8),(4,9,10),其中0<c<=10^1。

%t countTriples[m_,k_]:=模块[{c2,c2add,total=0,fax,g},Do[c2=c^2+k;如果[c2<2,继续[]];c2添加=c2;而[EvenQ[c2od],c2odd/=2];如果[c2od==1,如果[OddQ[Log[2,c2],total++];继续[]];如果[Mod[c2add,4]==3,继续[]];g=GCD【c2添加,100947】;如果[g!=1&g^2!=GCD[c2add,10190296809],继续[]];fax=映射〔{Mod〔#〔〔1〕〕,4〕,#〔〔2〕〕}和,FactorInteger〔c2odd〕〕;如果[Apply[Or,Map[#[[1]]==3&&OddQ[#[2]]&,fax]],继续[]];fax=案例[fax,{1,aa_}:>aa+1];fax=上限[应用[次数,传真]/2];总计+=传真;,{c,m}];总计](*由Wolfram Research的Daniel Lichtblau提供*)

%Y参考A101931、A121082、A121083、A121084、A121086、A121087、A121088

%K更多,nonn

%O 1,1号机组

%A _Tito Piezas III,2006年8月11日

%前几个术语是由蒂托·皮耶扎斯三世(_Tito Piezas III_)、詹姆斯·沃尔德比(James Waldby)(j-Waldby(AT)pat7.com)发现的。随后的术语由Andrzej Kozlowski(akoz(AT)mimuw.edu.pl)、Daniel Lichtblau(danl(AT)wolfram.com)发现。

%E a(7)摘自2011年7月3日的Max-Alekseyev

%E a(8)-a(10),摘自_山崎骏_,2015年10月17日

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

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

上次修改时间:美国东部夏令时2024年7月18日01:34。包含374377个序列。(在oeis4上运行。)