OFFSET
1,6
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
The a(10) = 7 integer partitions are (82), (64), (622), (55), (442), (4222), (22222).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], PrimeQ[GCD@@#]&]], {n, 20}]
PROG
(PARI) seq(n)={dirmul(vector(n, n, numbpart(n)), dirmul(vector(n, n, moebius(n)), vector(n, n, isprime(n))))} \\ Andrew Howroyd, Jun 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 22 2018
STATUS
approved