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

 


A266927型
形式x^2+y^2的完美幂,其中x和y是正整数。
5
8, 25, 32, 100, 125, 128, 169, 225, 289, 400, 512, 625, 676, 841, 900, 1000, 1156, 1225, 1369, 1521, 1600, 1681, 2025, 2048, 2197, 2500, 2601, 2704, 2809, 3025, 3125, 3364, 3600, 3721, 4225, 4624, 4900, 4913, 5329, 5476, 5625, 5832, 6084, 6400, 6724, 7225, 7569
抵消
1,1
评论
A134422号是一个子序列。
显然,对于n>0,这个序列包含形式为2^(2*n+1)的所有数字。
这个序列的动机是方程m^k=x^2+y^2,其中m,x,y>0,k>=2-阿尔图·阿尔坎2016年1月11日
链接
罗伯特·伊斯雷尔,n,a(n)表,n=1.10000
例子
25是一个术语,因为25=5^2=3^2+4^2。
32是一个术语,因为32=2^5=4^2+4^2。
125是一个术语,因为125=5^3=10^2+5^2。
169是一个术语,因为169=13^2=5^2+12^2。
MAPLE公司
N: =10000:#获取所有术语<=N
g: =程序(k)
局部F、F1、F2、F3、F;
F: =系数(k)[2];
F2,F:=选择删除(F->F[1]=2,F);
F1,F3:=选择删除(f->f[1]mod 4=1,f);
如果F1<>[],则
如果hastype(映射(f->f[2],F3),奇数),则
seq(k^j,j=2..层(log[k](N)),2)
else seq(k^j,j=2..层(log[k](N))
elif F2=[]或F2[1][2]::偶数或hastype(映射(f->f[2],F3),奇数),然后为NULL
else seq(k^j,j=3..层(log[k](N)),2)
结束进程:
排序(转换(map(g,{$2..floor(sqrt(N))}),list))#罗伯特·伊斯雷尔2016年1月11日
数学
lim=7600;fQ[n_]:=n==1||GCD@@FactorInteger[n][All,2]]>1;选择[Union@Flatten@Table[a^2+b^2,{a,Floor[Sqrt[lim-1]]},{b,a,Floor[Sqrt[lim-a^2]]}],fQ](*迈克尔·德弗利格2016年1月6日之后N.J.A.斯隆J.H.康威A000404号蚂蚁王A001597号*)
黄体脂酮素
(PARI)是(n)={对于(i=1,#n=系数(n)~%4,n[1,i]==3&&n[2,i]%2&&return);n&&(vecmin(n[1],])==1||(n[1,1]==2&&n[2],1]%2))}
对于(n=1,1e4,如果((ispower(n)||n==1)&&是(n),打印1(n,“,”));
关键词
非n
作者
阿尔图·阿尔坎2016年1月6日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月22日06:15。包含376097个序列。(在oeis4上运行。)