登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A275985年 n除φ(k!)的最小k(k>0)。 2
1,3,6,4,10,6,14,4,7,10,22,6,26,14,10,5,34,7,38,10,14,22,46,6,11,26,9,14,58,10,62,5,22,34,14,7,74,38,26,10,82,14,86,22,10,46,94,6,21,11,34,26,106,9,22,14,38,58,118,10,122,62,14,6,26,22,134,34,46,14,142,7,146 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,2

链接

罗伯特·以色列,n=1..10000的n,a(n)表

公式

罗伯特·以色列2016年8月15日:(开始)

如果m和n是互质,则a(m*n)=max(a(m),a(n))。

a(n)<=2n,等式为当n为奇素数。

假设p是奇素数,那么

2便士=2便士

如果2p+1是素数,那么a(p^2)=2p+1和a(p^3)=3p。

否则a(p^2)=3p,a(p^3)=4p。(结束)

例子

a(4)=4,因为4除以φ(4!)=8。

枫木

A: =proc(n)选项记住;

局部F,p,e,t,k;

F:=因子(n)[2];

如果nops(F)=1,则

[1][1];

e:=F[1][2];

如果p=2,则

t:=1;如果e=1,则返回3fi;

其他

t:=0

金融机构;

从2*p乘以p do求k

t:=t+padic:-ordp(k,p);

如果t>=e,则返回kfi;

如果isprime(k+1),则

t:=t+padic:-ordp(k,p);

如果t>=e,则返回(k+1)fi;

金融机构;

外径

其他

max(序列号(procname(t[1]^t[2]),t=F))

金融机构

结束过程:

A(1):=1:

地图(A,[$1..100])#罗伯特·以色列2016年8月15日

数学

使用[{ep=Table[{EulerPhi[k!],k},{k,200}]},表[SelectFirst[ep,Divisible[#[[1]],n]&],{n,80}]][[All,2]](*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2018年5月22日*)

黄体脂酮素

(PARI)a(n)={my(k=1);while(eulerphi(k!)%n,k++);k;}

交叉引用

囊性纤维变性。A048855号.

上下文顺序:A316478型 A242224 A294671号*邮编:A163294 邮编:A168577 A122634号

相邻序列:A275982号 A275983号 A275984号*A275986号 A275987号 A275988号

关键字

,

作者

阿尔图阿尔坎2016年8月15日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月14日09:14。包含336480个序列。(运行在oeis4上。)