#从百科全书的问候序列行!查询:id:a082834 显示1-1一中1 将一个一个一个的1个 ;%I a028234;%S a028234 1,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,17,7,7,9,9,1,1,19,13,13,5,5,1,1,1,1,,1,3,1,25,17,13,1,27,11,7,19,29,1, %U a028234 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 a028234,如果N=p_1^e 1*。。。*第1页。。。对于a^1(与a^021一起定义的a^1,u)=2821(与a^1一起定义的a^1/u)=。-2017年5月29日,n=1..10000的n,a(n)表%F A028234 a(n)=n/A028233(n);%F A028234 A001221(a(n))=A001221(n)-1;A001222(a(n))=A001222(n)-A067029(n)。-二00六年五月十三日。;%o a02234(Haskell);%o a022834 a[n\u]:=n/Power@First[factointeger[n]];表[a[n],{n,1,84}](*_让与-弗朗索瓦瓦阿尔科瓦,2012年6月12日*);%o a02234(Haskell);%o a02234 a0234 a02234 n=n`div`a02282333 n--_Reinhardzumkeller 2009年3月27日2013年3月27日;%o a0228234(PARI)a(PARI)a(PARI)a(PARI)a(PARI)a(PARI)a(a(PARI)a(PARI)a(n)={my(f=factor(n));if(#f~,f[1,1]=1);factorback(f);}\\_除此之外(除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,除此之外,本期除本期以外,本期除本期以外,本期除本期以外,本期除本期以外,本期除本期以外,本期除本期之外,本期除本期以外,本期除本期以外,本期除本期以外,本期除本期以外,本期除本期以外,本期自本期以外,本期除本期本期本期和28220639。-安图Antti Karttunen,2017年5月29日。;%o a022834(GAP)a:=列表(列表(列表(列表([1..10^3],因素),收集),i->i[1]),j->j[1]^j[j[2]j[2]);;;;;;%o a0828234 a28234:=列表([1.长度(a)],i->i i/a[i]);\共同的Muniru a Asiru,2018年1月27日;%Y Y A028234以A028234比较A020639,A02823333,A067029),i。;%K A0282823k A02828238 a0628239,A067029。;%K A02823k A028234 34不,很好,很简单 %o A028234 1,6 %a A028234 _MarcLebrun_10;%E A028234已编辑名称中包含a(1)=1,作者:Franklin T.Adams-Watters,2018年1月27日 #内容可根据OEIS最终用户许可协议获取:http://OEIS.org/License