显示找到的8个结果中的1-8个。
第页1
a(1)=1;对于n>1,a(n)=n的最大真除数(也就是说,对于n>1,n的最大除数d在1<=d<n范围内)。
+10 248
1, 1, 1, 2, 1, 3, 1, 4, 3, 5, 1, 6, 1, 7, 5, 8, 1, 9, 1, 10, 7, 11, 1, 12, 5, 13, 9, 14, 1, 15, 1, 16, 11, 17, 7, 18, 1, 19, 13, 20, 1, 21, 1, 22, 15, 23, 1, 24, 7, 25, 17, 26, 1, 27, 11, 28, 19, 29, 1, 30, 1, 31, 21, 32, 13, 33, 1, 34, 23, 35, 1, 36, 1, 37, 25, 38, 11, 39, 1, 40
评论
似乎a(n)=Max_{j=n+1..2n-1}gcd(n,j)-拉博斯·埃利默2002年5月22日
这是正确的:在[n+1,2n-1]范围内没有一个整数以n为除数,但肯定会出现n的最大正除数的至少一倍(例如,如果它是n/2,那么在n+(n/2))-安蒂·卡图恩2014年12月18日
散点图中各点的可见线斜率分别为1/2、1/3、1/5、1/7。。。(质数的倒数)-穆萨·纳西尔2022年6月19日
配方奶粉
其他身份和观察结果:
a(m*n)=最大值(m*a(n),n*a(m))-罗伯特·伊斯雷尔2014年12月18日
(结束)
MAPLE公司
A032742号:=proc(n)选项记忆;如果n=1,则为1;else数理论[除数](n)减去{n};最大值(op(%));结束条件:;结束进程:#R.J.马塔尔,2011年6月13日
1,seq(n/min(数值理论:-系数集(n)),n=2..1000)#罗伯特·伊斯雷尔2014年12月18日
数学
联接[{1},除数[#][[-2]]&/@Range[2,80]](*哈维·P·戴尔2011年11月29日*)
a[n_]:=n/FactorInteger[n][[1,1]];数组[a,100](*阿米拉姆·埃尔达尔2020年11月26日*)
表[Which[n==1,1,PrimeQ[n],1,True,Divisors[n][[2]]],{n,80}](*哈维·P·戴尔2022年2月2日*)
黄体脂酮素
(PARI)a(n)=如果(n==1,1,n/因子(n)[1,1])\\查尔斯·格里特豪斯四世2011年6月15日
(哈斯克尔)
a032742 n=n`div`a020639 n--莱因哈德·祖姆凯勒2012年10月3日
(Python)
来自症状输入因子
定义a(n):如果n==1,则返回1,否则为n//min(因子(n))
打印([a(n)用于范围(1,81)]中的n)#迈克尔·布拉尼基2022年6月21日
交叉参考
囊性纤维变性。A002110号,A002808年,A005867号,A006530号,A008578号,A020639号,A032741号,A003961号,A052126号,A054576美元,A055396号,A060681号,A068319号,A063928号,A130064型,A246277号,A250245型,250246英镑,A276085型,A276086型,A276151型,A286477型,A300236,A302025型,A302026型,A302032,A302042型,A325563型,A325567型.
1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 2, 3, 4, 1, 3, 1, 4, 3, 2, 5, 4, 1, 2, 3, 5, 1, 6, 1, 4, 5, 2, 1, 6, 7, 5, 3, 4, 1, 6, 5, 8, 3, 2, 1, 6, 1, 2, 9, 8, 5, 6, 1, 4, 3, 10, 1, 9, 1, 2, 5, 4, 11, 6, 1, 10, 9, 2, 1, 12, 5, 2, 3, 11, 1, 10, 13, 4, 3, 2, 5, 12
MAPLE公司
b: =proc(n,i,t)选项记忆`如果`(n=0,符号(t),
`如果`(最小(i,t)<1,1,最大(b(n,i-1,t),
igcd(b(n-i,最小值(n-i、i)、t-1)、i))
结束时间:
a: =n->`如果'(n<7,0,b(n$2,7)):
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n==0,符号[t],
如果[Min[i,t]<1,1,Max[b[n,i-1,t],
GCD[b[n-i,最小[n-i、i],t-1],i]]];
a[n_]:=如果[n<7,0,b[n,n,7];
黄体脂酮素
(PARI)a(n)=my(d=除数(n));d=选择(x->x<=n\7,d);天[#d]\\大卫·A·科内斯2022年7月24日
1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 4, 1, 2, 3, 4, 1, 5, 1, 4, 3, 2, 5, 6, 1, 2, 3, 5, 1, 7, 1, 4, 5, 2, 1, 8, 7, 5, 3, 4, 1, 9, 5, 8, 3, 2, 1, 10, 1, 2, 9, 8, 5, 11, 1, 4, 3, 10, 1, 12, 1, 2, 5, 4, 11, 13, 1, 10, 9, 2, 1, 14, 5, 2, 3, 11, 1, 15, 13, 4, 3, 2
数学
a[n_]:=GCD@@@整数分区[n,{6}]//最大值;
1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 4, 3, 2, 1, 4, 1, 2, 3, 5, 1, 3, 1, 4, 5, 2, 1, 6, 1, 5, 3, 4, 1, 6, 5, 7, 3, 2, 1, 6, 1, 2, 7, 8, 5, 6, 1, 4, 3, 7, 1, 9, 1, 2, 5, 4, 7, 6, 1, 10, 9, 2, 1, 7, 5, 2, 3, 11, 1, 10, 7, 4, 3, 2, 5, 12, 1, 7, 11, 10
MAPLE公司
b: =proc(n,i,t)选项记忆`如果`(n=0,符号(t),
`如果`(min(i,t)<1,1,max(b(n,i-1,t),
igcd(b(n-i,最小值(n-i、i)、t-1)、i))
结束时间:
a: =n->`如果`(n<8,0,b(n$2,8)):
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n==0,符号[t],如果[Min[i,t]<1,1,Max[b[n、i-1,t],GCD[b[n-i,Min[n-i、i],t-1],i]]];
a[n_]:=如果[n<8,0,b[n,n,8]];
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 4, 1, 2, 3, 4, 1, 3, 1, 4, 5, 2, 1, 4, 1, 5, 3, 4, 1, 6, 5, 4, 3, 2, 1, 6, 1, 2, 7, 4, 5, 6, 1, 4, 3, 7, 1, 8, 1, 2, 5, 4, 7, 6, 1, 8, 9, 2, 1, 7, 5, 2, 3, 8, 1, 10, 7, 4, 3, 2, 5, 8, 1, 7, 11, 10
MAPLE公司
b: =proc(n,i,t)选项记忆`如果`(n=0,符号(t),
`如果`(最小(i,t)<1,1,最大(b(n,i-1,t),
igcd(b(n-i,最小值(n-i、i)、t-1)、i))
结束时间:
a: =n->`如果`(n<9,0,b(n$2,9)):
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n==0,符号[t],如果[Min[i,t]<1,1,Max[b[n、i-1,t],GCD[b[n-i,Min[n-i、i],t-1],i]]];
a[n_]:=如果[n<9,0,b[n,n,9]];
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 2, 3, 4, 1, 3, 1, 4, 3, 2, 1, 4, 1, 5, 3, 4, 1, 3, 5, 4, 3, 2, 1, 6, 1, 2, 3, 4, 5, 6, 1, 4, 3, 7, 1, 6, 1, 2, 5, 4, 7, 6, 1, 8, 3, 2, 1, 7, 5, 2, 3, 8, 1, 9, 7, 4, 3, 2, 5, 8, 1, 7, 9, 10
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n==0,符号[t],如果[Min[i,t]<1,1,Max[b[n、i-1,t],GCD[b[n-i,Min[n-i、i],t-1],i]]];
a[n_]:=如果[n<10,0,b[n,n,10]];
1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 2, 3, 4, 1, 3, 1, 5, 3, 2, 1, 6, 5, 2, 3, 7, 1, 6, 1, 8, 3, 2, 7, 9, 1, 2, 3, 10, 1, 7, 1, 11, 9, 2, 1, 12, 7, 10, 3, 13, 1, 9, 11, 14, 3, 2, 1, 15, 1, 2, 9, 16, 13, 11, 1, 17, 3, 14, 1, 18, 1, 2, 15, 19, 11, 13, 1, 20, 9, 2, 1, 21, 17, 2, 3, 22, 1, 18, 13, 23, 3, 2, 19, 24, 1, 14, 11, 25
数学
a[n_]:=GCD@@@整数分区[n,{4}]//最大值;
1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 3, 1, 4, 3, 2, 1, 4, 5, 2, 3, 4, 1, 6, 1, 4, 3, 2, 7, 6, 1, 2, 3, 8, 1, 7, 1, 4, 9, 2, 1, 8, 7, 10, 3, 4, 1, 9, 11, 8, 3, 2, 1, 12, 1, 2, 9, 8, 13, 11, 1, 4, 3, 14, 1, 12, 1, 2, 15, 4, 11, 13, 1, 16, 9, 2, 1, 14, 17, 2, 3, 11, 1
数学
a[n_]:=GCD@@@整数分区[n,{5}]//最大值;
黄体脂酮素
(PARI)a(n)={my(v=0);对于部分(p=n,v=max(v,gcd(Vec(p))),[5,5]);v}\\雷米·西格里斯特2022年7月1日
搜索在0.007秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月23日16:16 EDT。包含376178个序列。(在oeis4上运行。)
|