OFFSET
1,5
FORMULA
a(n) = Sum_{i=1..floor(n/2)} [Omega(i*(n-i)) = 2], where [] is the Iverson bracket and Omega = A001222.
MATHEMATICA
Table[Sum[KroneckerDelta[PrimeOmega[i (n - i)], 2], {i, Floor[n/2]}], {n, 100}]
PROG
(PARI) a(n) = sum(i=1, n\2, bigomega(i*(n-i)) == 2); \\ Michel Marcus, Apr 22 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Apr 21 2018
STATUS
approved