%I#20 2023年9月25日08:56:48
%S 12,18,20,28,44,45,48,50,52,60,63,68,72,75,76,80,84,90,92,98,99108,
%电话:112116117124126132140147148150153156162164171172175,
%电话:176180188192198200204207208212220228234236240242244
%N个数,其中至少有一个素因子具有奇数,一个素因数具有偶数指数。
%C=补码(并集(A002035,A000290))=交集(A000037,A072587);
%对于0<k<=25,C a(k)=A070011(k),A070011。
%C该序列的渐近密度为1-A065463=0.2955577990…-Amiram Eldar_,2022年9月18日
%C编号k,以便A007913(k)正确划分A007947(k)。(与A072587相同,无平方项)。一个数k在这个序列中,iff 1<A0071913(k)<A007947(k)<k,和A0071913(k)| A007947(k),等价地,iff k不在A000037中,A336643(k)为平方_David James Sycamore,2023年9月20日
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%t oeeQ[n_]:=模块[{fi=Transpose[FactorInteger[n]][[2]]},计数[fi,_?OddQ]>0&&Count[fi、_?EvenQ]>0];选择[Range[250],oeeQ](*哈维·P·戴尔,2015年6月21日*)
%o(哈斯克尔)
%o a072588 n=a072588_列表!!(n-1)
%o a072588_list=过滤器f[1..],其中
%o f x=任意奇数es和任意偶数es,其中es=a12410_row x
%o——Reinhard Zumkeller,2012年11月15日
%o(PARI)is(n)=#集合(因子(n)[,2]%2)==2\\_Charles R Greathouse IV_,2015年10月16日
%Y参见A000037、A000290、A001221、A001225、A002035、A065463、A070011、A072587、A124010。
%Y参见A007913、A007947、A336643。
%K nonn公司
%O 1,1号机组
%A _Reinhard Zumkeller,2002年6月23日
|