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

 

标志


提示
(问候来自整数序列在线百科全书!)
A028234号 如果n=p_1^e_1*。。。*第1页。。。<p_k素数,则a(n)=n/p_1^e_1,其中a(1)=1。 147

%我

%S 1,1,1,1,1,3,1,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,1,19,13,5,1,21,1,11,5,23,1,3,1,25,17,13,1,27,11,7,19,29,1,

%U 15,1,31,7,1,13,33,1,17,23,35,1,9,1,37,25,19,11,39,1,5,1,41,1,21

%N如果N=p_1^e\u 1*。。。*第1页。。。撇1,u=1(p,u)=。

%C与A067029一起用于定义与a(p^e)=f(e)相乘的序列,作为以下形式的循环:a(1)=1;对于n>1,a(n)=f(A067029(n))*a(a02834(n))。-_Antti Karttunen,2017年5月29日

%表格编号:2834/a</a>

%F a(n)=n/A028233(n)。

%F A001221(a(n))=A001221(n)-1;A001222(a(n))=A001222(n)-A067029(n)。-2006年5月13日,Reinhard Zumkeller

%t a[n\]:=n/Power@@First[factoranteger[n]];表[a[n],{n,1,84}](*\u Jean-François Alcover,2012年6月12日*)

%o(哈斯凯尔)

%o a02834 n=n`div`a02833 n--u Reinhard Zumkeller_2013年3月27日

%o(PARI)a(n)={my(f=因子(n));if(#f~,f[1,1]=1);factorback(f);}\\\\\\\\\\\\\\\\\ Michel Marcus_2016年2月11日

%o(Python)

%从Sympo导入

%o定义a(n):

%o f=因子(n)

%o如果n==1,则返回1,否则n/(min(f)**f[min(f)])#_indranilghosh_2017年5月12日

%o(方案)(定义(A028234 n)(/n(A028233 n));还需要A020639和A028233的代码。-_Antti Karttunen,2017年5月29日

%o(GAP)a:=列表(List(List([1..10^3],因子),集合),i->i[1]),j->j[1]^j[2]);;

%o A028234:=列表([1..Length(a)],i->i/a[i]);#_munirua AsiruŠu2018年1月27日

%Y比照A020639、A028233、A067029。

%不,很好,很简单

%O 1,6

%A·马克·勒布伦_

%E编辑姓名,包括a(1)=1,作者:Franklin T.Adams-Watters,2018年1月27日

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

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

美国东部时间2020年9月18日最后修订时间:05:16。包含337169个序列。(运行在oeis4上。)