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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A284255型 n的最大因子,使其所有素因子小于n的最小素因子的平方,a(1)=1。 9
1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 11, 12, 13, 2, 15, 16, 17, 18, 19, 4, 21, 2, 23, 24, 25, 2, 27, 4, 29, 6, 31, 32, 3, 2, 35, 36, 37, 2, 3, 8, 41, 6, 43, 4, 45, 2, 47, 48, 49, 2, 3, 4, 53, 54, 55, 8, 3, 2, 59, 12, 61, 2, 63, 64, 65, 6, 67, 4, 3, 2, 71, 72, 73, 2, 75, 4, 77, 6, 79, 16, 81, 2, 83, 12, 85, 2, 3, 8, 89, 18, 91, 4, 3, 2, 95, 96, 97, 2, 9, 4, 101, 6 (列表图表参考历史文本内部格式)
抵消
1,2
链接
配方奶粉
a(n)=n/A284254型(n) ●●●●。
其他身份。对于所有n>=1:
A006530号(a(n))=184260元(n) ●●●●。
A020639号(a(n))=A020639号(n) ●●●●。
A001221号(a(n))=A284259号(n) ●●●●。
A001222号(a(n))=A284257型(n) ●●●●。
例子
对于n=50=2*5*5,只有小于2^2的素数是2,因此a(50)=2。
对于n=90=2*3*3*5,小于2^2的素数是2、3和3,因此a(90)=2*3*18。
数学
表[If[n==1,1,Function[d,First[Select[Reverse@First@d,Times@@Boole@Map[#<Last[d]^2&,FactorInteger[#][[All,1]]==1&]/。{}->{1}]]@{#,First@Select[#,PrimeQ]}&@Divisors@n],{n,102}](*迈克尔·德弗利格2017年3月24日*)
黄体脂酮素
(方案)(定义(A284255型n) (/编号(A284254型n) ))
(PARI)
A(n)=如果(n<2,返回(1),my(f=系数(n)[,1]);对于(i=2,#f,如果(f[i]>f[1]^2,返回(f[i)));返回(1));
a(n)=如果(a(n)==1,1,a(n)*a(n/a(n)));
对于(n=1150,打印1(n/a(n),“,”)\\印地瑞尼Ghosh,之后大卫·A·科内斯2017年3月24日
(Python)
从症状导入因子
定义A(n):
pf=素数(n)
如果pf:min_pf2=min(pf)**2
对于pf中的i:
如果i>minpf2:返回i
返回1
定义a(n):如果a(n)==1,则返回1,否则a(n
打印([n//a(n)表示范围(151)中的n)]#印地瑞尼Ghosh2017年3月24日
交叉参考
不同于A284253号第一次,n=50,其中a(50)=2,而A284253号(50) = 10.
关键词
非n
作者
安蒂·卡图恩2017年3月24日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月6日18:59。包含372297个序列。(在oeis4上运行。)