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

 

标志


提示
问候整数序列的在线百科全书!)
A028 如果n=p1 1^ Ey1*…* PK K^ EK K,PY1<…<pYK素数,然后A(n)=n/p1 1eE1,A(1)=1。 一百四十六

%i

%s1,1,1,1,1,1,1,1,1,1,51,1,1,1,7-,51,1,1,9-,1,5-,71,11-,1,3- 1,13-,1,7-,1,151,1,1,

%T11、17、7、9、1、19、13、5、1、21、1、11、5、23、1、3、1、25、17、13、1、27、11、7、19、29、1

%U15、1,31,71,1,13:33、1,17:23、351,1,9:1,37、25、19、11、39、1、5、1、41、1、21

如果n=p1 1^ Ey1*…* PK K^ EK K,PY1<…<pYK素数,然后A(n)=n/p1 1eE1,A(1)=1。

%C连同A067029对于定义与A(p^ e)=f(e)相乘的序列是有用的,作为形式的递归:a(1)=1,对于n>1,a(n)=f(a067029(n))* a(a028 23 4(n))。- 5月29日2017日

%H Reinhard Zumkeller,< HREF=“/A02244/B028 34.TXT”> n表,A(n)为n=1…10000</a>

%f a(n)=n/a028 23 3(n)。

%F a00 1221(a(n))=a00 1221(n)- 1;a00 1222(a(n))=a00 1222(n)-a067029(n)。- 2006 5月13日,莱因哈德祖姆凯勒尔

%t a[n]:= n/POWER @第一[因子整数[n] ];表[a[n],{n,1, 84 }](*-Jeang-Frang-Oosi-Alcopi],6月12日2012*)

%O(哈斯克尔)

%O A028 23 4 N=N’div’A028 23 3 N - 2013

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

%O(Python)

从SmithI导入因子分解的%O

%ODEF A(n):

%o f=因子(n)

%n返回1,如果n=1,另一个n/(min(f)**f[ min(f)]),2017,5月12日

%O(方案)(定义(A028 23 4 N)(/N(A028 23 3 N)));还需要来自A020639和A08263的代码。- 5月29日2017日

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

%O A028 34:=列表([1…长度(a)],I -> I/A[i]);1月27日,2018

%Y CF.A020639,A08263,A067029。

%k,n,漂亮,容易

%O 1,6

%A MARC勒布鲁纳

%E编辑的名称包含一个(1)=1,由1月27日,2018

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

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

最后修改了1月24日0:11 EST 2020。包含331177个序列。(在OEIS4上运行)