OFFSET
1,8
COMMENTS
Number of distinct rectangles with squarefree length and prime width such that L + W = n, W <= L. For example, a(16) = 3; the rectangles are 2 X 14, 3 X 13 and 5 X 11. - Wesley Ivan Hurt, Nov 04 2017
FORMULA
MAPLE
with(numtheory): A280534:=n->add(mobius(n-i)^2*(pi(i)-pi(i-1)), i=1..floor(n/2)): seq(A280534(n), n=1..100); # Wesley Ivan Hurt, Jan 04 2017
MATHEMATICA
Table[Sum[MoebiusMu[n - k]^2 * (PrimePi[k] - PrimePi[k - 1]), {k, 1, Floor[n/2]}], {n, 1, 50}] (* G. C. Greubel, Jan 05 2017 *)
Table[Count[IntegerPartitions[n, {2}], _?(SquareFreeQ[#[[1]]]&&PrimeQ[ #[[2]]]&)], {n, 90}] (* Harvey P. Dale, Oct 17 2021 *)
PROG
(PARI) for(n=1, 50, print1(sum(k=1, floor(n/2), isprime(k)*(moebius(n-k))^2), ", ")) \\ G. C. Greubel, Jan 05 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Jan 04 2017
STATUS
approved