登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A028 如果n=p1 1^ Ey1*…* PK K^ EK K,PY1<…<pYK素数,然后A(n)=p1 1eE1,A(1)=1。 二十五
1, 2, 3、4, 5, 2、7, 8, 9、2, 11, 4、13, 2, 3、16, 17, 2、19, 4, 3、2, 23, 8、25, 2, 27、4, 29, 2、31, 32, 3、2, 5, 4、2, 5, 4、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,2

评论

最小素数分裂的最高幂莱因哈德祖姆勒,APR 09 2015

链接

诺伊和Reinhard Zumkellern,a(n)n=1…10000的表前1000个术语

公式

A(n)=A020639(n)^A067029(n)。-莱因哈德祖姆勒5月13日2006

A(n)=A141809(n,1)。-莱因哈德祖姆勒,军04 2012

a(n)=n/A028(n)。-安蒂卡特宁5月29日2017

例子

阿尼鲁,1月27日2018:(开始)

如果n=10,则A(10)=2,因为10=2 ^ 1×5 ^ 1。

如果n=16,则A(16)=16,因为16=2 ^ 4。

如果n=29,则A(29)=29,因为29=29 ^ 1。

(结束)

枫树

A028= PROC(n)

局部SPF,PF;

如果n=1,那么

返回1;

如果结束;

SPF==A020639(n);

对于IFF(n)中的PF(2)

如果PF〔1〕=SPF,则

返回PF〔1〕^ PF〔2〕;

如果结束;

结束DO:

结束进程马塔尔,朱尔09 2016

第二枫叶计划:

a=n=>‘If’(n=1, 1,(i>i〔1〕i〔2〕)(排序(IFAcths(n)〔2〕)〔1〕):

SEQ(A(n),n=1…100);阿洛伊斯·P·海因茨1月29日2018

Mathematica

a[n]:=幂@ @ [因子整数[n] ];表[a[n],{n,1, 86 }](*)让弗兰,十二月01日2011日)

黄体脂酮素

(哈斯克尔)

A028 23 3=头。A141809-列

——莱因哈德祖姆勒,军04 2012,8月17日2011

(PARI)a(n)=(n>1,n=因子(n);n〔1, 1〕n〔1, 2〕,1〕查尔斯4月26日2012

(蟒蛇)

从SmithI导入因子

DEFA(n):

F=因子(n)

如果n=1,否则返回1(f)**f[ min(f)]英德拉尼尔-豪什5月12日2017

(方案)

幼稚的实现A020639在该条目下给出。所有这些功能也可以用DEAGEC定义,以使它们在以后的调用上更快。参见http://oei.org/wiki /记忆化方案

(定义(A028n)(如果(n 2)n(LET)(LPF)(LPF)A020639n))(让环(m LPF)(n(/n LPF)))(COND((0)?(模N LPF)(m)(否则)(环(*m LPF)(/n LPFα×α);安蒂卡特宁5月29日2017

(GAP)列表(列表(列表([ 1…10 ^ 3 ],因子),收集),I -> I [1 ]),J-> J[1 ] ^ J[ 2 ]);阿尼鲁1月27日2018

交叉裁判

囊性纤维变性。A020639A000 630A03364A034 699A053585.

也见A028.

囊性纤维变性。A000 8475.

囊性纤维变性。A141809.

语境中的顺序:A304181 A03364 A323 130*A216972 A062696 A16961

相邻序列:A08230 A028 A028*A028 A028 A028

关键词

诺恩容易

作者

马克勒布伦

扩展

编辑名称包括(1)=1富兰克林·T·亚当斯·沃特斯1月27日2018

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改了1月18日23:04 EST 2020。包含331030个序列。(在OEIS4上运行)