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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A121088型 当k=5且0<c<=10^n时,类毕达哥拉斯基元三元组a^2+b^2=c^2+k的数量。 2
1, 20, 202, 2046, 20589, 205489, 2055224, 20551650, 205500435 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
例子
a(1)=1,因为有一个解(a,b,c)为(4,5,6),其中0<c<=10^1。
数学
(*由Wolfram Research的Daniel Lichtblau提供*)
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[c2add]];如果[Apply[Or,Map[#[[1]]==3&&OddQ[#[2]]&,fax]],继续[]];fax=案例[fax,{1,aa_}:>aa+1];fax=上限[应用[次数,传真]/2];合计+=传真,{c,m}];总计]
交叉参考
关键词
更多,非n
作者
蒂托·皮耶扎斯三世,2006年8月11日
扩展
发现的前几个术语蒂托·皮耶扎斯三世詹姆斯·沃尔德比(j-Waldby(AT)pat7.com)
Andrzej Kozlowski(akoz(AT)mimuw.edu.pl)、Daniel Lichtblau(danl(AT)wolfram.com)发现的后续术语
a(6)修正,a(7)增加马克斯·阿列克谢耶夫2011年7月4日
a(8)-a(9)来自拉尔斯·布隆伯格2015年12月22日
状态
经核准的

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

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

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