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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A188794号 a(n)是最小的整数k>=2,使得k |(n-d)的n-k的除数d>1等于A188550个(n) ●●●●。 5
2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 2, 2, 5, 2, 3, 4, 2, 2, 3, 2, 3, 2, 5, 4, 2, 2, 3, 4, 2, 2, 3, 2, 3, 2, 2, 3, 7, 2, 3, 4, 2, 2, 5, 2, 3, 2, 3, 4, 2, 2, 3, 4, 5, 2, 2, 4, 3, 2, 2, 2, 3, 2, 3, 4, 2, 6, 2, 2, 3, 2, 3, 4, 5, 2, 3, 4, 2, 2, 7, 2, 3, 4, 5, 6, 2, 2, 3, 4, 2, 2, 3, 8, 5, 2, 2, 3, 4, 2, 3, 2, 3, 2 (列表图表参考历史文本内部格式)
抵消
4,1
评论
a(n)<=楼层(sqrt(n))的定义如下A188550个.
链接
阿洛伊斯·海因茨,n=4..20004时的n,a(n)表
MAPLE公司
带有(数字理论):
a: =proc(n)局部h,i,k,m;
m、 i:=0,0;
对于从2到地板的k(sqrt(n))do
h: =nops(选择(x->irem(x,k)=0,
[seq(n-d,d=除数(n-k)减去{1})]);
如果h>m,则m,i:=h,k fi
od;
结束时间:
seq(a(n),n=4..120)#阿洛伊斯·海因茨2011年4月10日
数学
a[n_]:=模块[{h,i=0,k,m=0},对于[k=2,k<=楼层[Sqrt[n]],k++,h=Length[Select[Table[n-d,{d,Rest[Divisors[n-k]]}],Mod[#,k]==0&]];如果[h>m,{m,i}={h,k}]];i] ;
a/@范围[4120](*Jean-François Alcover公司2020年10月28日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。188550英镑,A188579号.
关键词
非n,
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月15日04:51。包含373402个序列。(在oeis4上运行。)