#来自在线整数序列百科全书的问候!搜索:id:a07029 显示1-1的1-1个1 将一个一个一个的1个 ;%I a067029;%S a067029 0,1,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,2,1,1,1,2,1,1,1,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,1,2,1,1,1,1,1,1,2,1,1,4,2,1,1,2,1,1,1,3,1,1,1,2,1,1,2,6,1,1,1,2, %U a067029 1,1,1,3,1,1,1,2,1,1,1,4,4,1,1,2,1,1,1,3,1,1 %Nn、 a(1)=0. %C A067029偶数等分为A001511:a(2n)=A007814(n)+1。-2004年1月31日, %C A067029 a(A247180(n))=1。-_Reinhard Zumkeller,2014年11月23日 %C A067029具有Heinz数n的分区中最小部分的出现次数。分区p=[p_1,p_2,…,p_r]的Heinz数被定义为积{j=1..r}(p_j-th prime)(概念由_aloisp.Heinz_u在A215366中用作分区的“编码”)。例如:a(24)=3,因为Heinz数为24=3*2*2的分区是[2,1,1,1]。-_Emeric Deutsch,2015年10月2日 %C A067029与A028234一起用于定义与a(p^e)=f(e)相乘的序列,其形式为:a(1)=1,对于n>1,a(n)=f(A067029(n))*a(a02834(n))。-_Antti Karttunen,2017年5月29日 %H A067029 T.D.Noe,表n=10000%F A067029 a(n)=A124010(n,1)。-_Reinhard Zumkeller,2011年8月27日 %F A067029 A028233(n)=A020639(n)^a(n)。-2009年5月13日,;%e A067029 a(18)=a(2^1*3^2^2)=1。;%p A067029 A067029 A067029:=proc(n);%p A067029局部f,lp,a;;;%p A067029 a:=0;0;;%p A067029 a:=0;;;%p A067029 lp:=n+1;;%p A067029 p p A067029在ifactors(n)[2]do;%p A067029为f在ifactors(n)[2]do 2]做;%p A067029 p:=op(1,f);;(1,f);;;%p A067029 p A06702%p A067029如果p<lp,则 %p A067029 a:=op(2,f); %p A067029有限合伙:=p;p;;%p A067029 fi;;%p A067029 end do:;%p A067029 a;;;%p A067029 end proc:#U R.J.Mathar U,2015年7月8日,2015年7月8日。;%t A067029 Join[{0},表[Factoncenger[n][[1,2]][,{n,2100}]](*[加哈维p.p.Dale[2011年10月14日*10月14日*);%o A067029(Haskell)0 0 A067029(Haskell)[2015年7月8日8 8 8月8月8日,[10月8日,[10月8日,[;%o A067029 A067029=头部。2013年7月05日,2012年6月04日;%o A067029——\u Reinhard a07029(Python)o a0667029(Python);%o A067029(Python)%o A067029 frosympy import factont;%o a0667029 def a(n)(n):;%o o a0667029 f=factont(n)(n);%o a0667029返回0如果n==1 else f f[min(f)f)】#u Indranil Ghosh年5月15日;%o A067029(PARI)o A067029(PARI)oa06729(PARI)0 67029(PARI)0 a(n)=如果(n==1,0,因子(n)[1,2]);\\\\ u Michel Marcus,2017年5月15日 %o A067029(方案) %o A067029;;A020639的原始实现在该条目下给出。所有这些函数也可以用definec定义,以使它们在以后的调用中更快。参见http://oeis.org/wiki/Memoization Scheme %o A067029(define(A067029 n)(if(<n2)0(let((mp(A020639 n)))(let loop((e0)(n(/n mp)))(cond((整数?n) (loop(+e 1)(/n mp)))(另一e(e 1)(/n mp)))(另一e(e)另一(e 1)年5月29日(2017年5月29日,;%Y A067029 Cf A051903,A020639,A028233,A034684,A071178,A071178。;%K A067029 nonn,nice,;%O A067029 1,4;%A A067029 UReinHard ZumkKeller_年2月17日,2002年2月17日 根据OEIS最终用户许可协议提供的内容:http http http http终端用户许可协议:http http http http http终端用户许可协议:http http http http http http http http http http http http://OEIS.org/License