OFFSET
1,7
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = Sum_{d|n} mu(n/d) * A098743(d).
EXAMPLE
The a(11) = 13 partitions: (65), (74), (83), (92), (443), (533), (542), (632), (722), (3332), (4322), (5222), (32222).
The a(14) = 7 partitions: (9 5), (11 3), (5 5 4), (6 5 3), (8 3 3), (4 4 3 3), (5 3 3 3).
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], And[GCD@@#===1, !Or@@(Divisible[n, #]&/@#)]&]], {n, 50}]
PROG
(PARI) \\ here b(n) is A098743.
b(n)={polcoef(1/prod(k=1, n, if(n%k, 1 - x^k, 1) + O(x*x^n)), n)}
a(n)={sumdiv(n, d, moebius(d)*b(n/d))} \\ Andrew Howroyd, Aug 29 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 15 2018
STATUS
approved