login
Number of ways to write n as a sum of two coprime semiprimes.
4

%I #12 Sep 10 2019 15:51:32

%S 0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,1,0,1,0,0,0,2,0,3,0,0,1,

%T 1,0,2,0,2,0,2,0,4,1,0,1,4,0,2,0,1,0,3,0,4,0,1,2,5,0,6,0,1,3,1,0,4,1,

%U 3,0,6,0,5,3,1,2,3,0,5,0,3,2,7,0,1,3,4,1,4,0,6,2,2,3,6,0,7,1,4,2,6,1

%N Number of ways to write n as a sum of two coprime semiprimes.

%C a(A088184(n))>0, a(A088185(n))=0.

%C Is a(n)>0 for n>210? see conjecture in A072931.

%C The graph of this sequence is compelling evidence that 210 is the last term of sequence A088185. - _T. D. Noe_, Apr 10 2007

%H T. D. Noe, <a href="/A088183/b088183.txt">Table of n, a(n) for n=1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Semiprime.html">Semiprime</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RelativelyPrime.html">Relatively Prime</a>

%e a(64)=3: 64 = 3*3+5*11 = 3*5+7*7 = 5*5+3*13, (A072931(64)=5).

%t cpspQ[{a_,b_}]:=PrimeOmega[a]==PrimeOmega[b]==2&&CoprimeQ[a,b]; Table[ Count[ IntegerPartitions[n,{2}],_?(cpspQ[#]&)],{n,110}] (* _Harvey P. Dale_, Sep 10 2019 *)

%o (PARI) a(n)=sum(i=1, n, sum(j=1, i, if (gcd(i,j)==1, if (abs(bigomega(i)-2) +abs(bigomega(j)-2) +abs(n-i-j),0,1)))) \\ after A072966; _Michel Marcus_, Sep 08 2015

%Y Cf. A072931, A001358.

%K nonn

%O 1,19

%A _Reinhard Zumkeller_, Sep 22 2003