OFFSET
1,8
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
The a(12) = 4 integer partitions are (12), (8 4), (6 6), (4 4 4).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !(GCD@@#==1||PrimeQ[GCD@@#])&]], {n, 0, 20}]
PROG
(PARI) seq(n)={dirmul(vector(n, n, numbpart(n)), dirmul(vector(n, n, moebius(n)), vector(n, n, n>1&&!isprime(n))))} \\ Andrew Howroyd, Jun 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 22 2018
STATUS
approved