登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
A028 如果n=p1 1^ Ey1*…* PK K^ EK K,PY1<…<pYK素数,然后A(n)=n/p1 1eE1,A(1)=1。 一百四十六
1, 1, 1、1, 1, 3、1, 1, 1、5, 1, 3、1, 7, 5、1, 1, 9、1, 5, 7、11, 1, 3、1, 13, 1、7, 1, 15、1, 1, 11、17, 7, 9、17, 7, 9、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,6

评论

一起A067029对于定义与A(p^ e)=f(e)相乘的序列是有用的,作为形式的递归:a(1)=1,对于n>1,a(n)=f(A067029(n)**A028(n)。-安蒂卡特宁5月29日2017

链接

Reinhard Zumkellern,a(n)n=1…10000的表

公式

a(n)=n/A028(n)。

A000 1221(a(n))A000 1221(n)- 1;A000 1222(a(n))A000 1222(n)A067029(n)。-莱因哈德祖姆勒5月13日2006

Mathematica

a[n]:= n/POWEC@ @ [因子整数[n] ];表[a[n],{n,1, 84 }](*)让弗兰6月12日2012*)

黄体脂酮素

(哈斯克尔)

A02244N=N’DIV’A028 23 3N莱因哈德祖姆勒3月27日2013

(PARI)A(n)={My(f=因子(n));If(αf~,f〔1, 1〕=1);因子(f);}米歇尔马库斯2月11日2016

(蟒蛇)

从SmithI导入因子

DEFA(n):

F=因子(n)

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

(方案)(定义)A028n)(/n)A028n));还需要来自A020639A028. -安蒂卡特宁5月29日2017

(GAP)A:=列表(列表(列表([1…10 ^ 3 ],因子),收集),I -> I [1 ]),J-> J[1 ] ^ J[2 ];

A028=列表([1…长度(a)],i -> I/A[i]);阿尼鲁1月27日2018

交叉裁判

囊性纤维变性。A020639A028A067029.

语境中的顺序:A226040 A302034 A302044*A32 995 A052125 A21484

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

关键词

诺恩容易

作者

马克勒布伦

扩展

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

地位

经核准的

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

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

最后修改12月10日16:50 EST 2019。包含329898个序列。(在OEIS4上运行)