OFFSET
1,19
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n=1..10000
Eric Weisstein's World of Mathematics, Semiprime
Eric Weisstein's World of Mathematics, Relatively Prime
EXAMPLE
a(64)=3: 64 = 3*3+5*11 = 3*5+7*7 = 5*5+3*13, (A072931(64)=5).
MATHEMATICA
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 *)
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 22 2003
STATUS
approved