OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A365837飞机 n的最大真平方因子,对于n>=2;a(1)=1。 1
1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 4, 1, 9, 1, 4, 1, 1, 1, 4, 1, 1, 9, 4, 1, 1, 1, 16, 1, 1, 1, 9, 1, 1, 1, 4, 1, 1, 1, 4, 9, 1, 1, 16, 1, 25, 1, 4, 1, 9, 1, 4, 1, 1, 1, 4, 1, 1, 9, 16, 1, 1, 1, 4, 1, 1, 1, 36, 1, 1, 25, 4, 1, 1, 1, 16, 9, 1, 1, 4, 1, 1, 1, 4, 1, 9, 1, 4, 1, 1, 1, 16, 1, 49, 9, 25 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,8
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
MAPLE公司
f: =proc(n)局部f,t;
如果issqr(n),则
n/min(数量理论:-系数集(n))^2
其他的
F: =系数(n)[2];
mul(t[1]^(2*层(t[2]/2)),t=F)
fi(菲涅耳)
结束进程:
f(1):=1:
地图(f,[1..100]美元)#罗伯特·伊斯雷尔2023年11月20日
数学
连接[{1},表[Last[Select[Divisors[n],#<n&&IntegerQ[Sqrt[#]]&]],{n,2,100}]]
f[p_,e_]:=p^(2*楼层[e/2]);a[n_]:=模块[{fct=FactorInteger[n]},时间@@f@@fct/If[AllTrue[fct[[;;,2]],EvenQ],fct[[1,1]]^2,1]];数组[a,100](*阿米拉姆·埃尔达尔2023年10月19日*)
黄体脂酮素
(PARI)a(n)=如果(n==1,1,my(d=除数(n));vecmax(选择(issquare,Vec(d,#d-1)))\\米歇尔·马库斯2023年10月17日
(Python)
从数学导入prod
来自sympy导入因子
定义A365837飞机(n) :
如果n<=1:返回1
f=因子int(n)
返回prod(p**(e&-2)用于f中的p,e items())//(min(f)**2 if all(e&1^1用于f值中的e())else 1)#柴华武2023年10月20日
交叉参考
关键词
非n
作者
状态
经核准的

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

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

上次修改时间:2024年6月3日22:53 EDT。包含373088个序列。(在oeis4上运行。)