OFFSET
1,5
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
EXAMPLE
a(7) = 3 since 7 = 3+4 = 2+5 = 1+6; 7 = 1+2+4 does not count (A036998(7)=4).
MATHEMATICA
a[n_] := a[n] = If[n == 1, 1, Module[{ip}, ip = IntegerPartitions[n, All, Select[Range[n - 1], CoprimeQ[#, n] &]]; Length@Select[ip, Sort[#] == Union[#] && AllTrue[Subsets[#, {2}], CoprimeQ @@ # &] &]]];
Table[Print[n, " ", a[n]]; a[n], {n, 1, 80}] (* Jean-François Alcover, Dec 12 2021 *)
PROG
(PARI) a(n)={local(Cache=Map()); my(recurse(r, p, k)=my(hk=[r, p, k], z); if(!mapisdefined(Cache, hk, &z), z=if(k==0, r==0, self()(r, p, k-1) + if(gcd(p, k)==1, self()(r-k, p*k, min(r-k, k-1)))); mapput(Cache, hk, z)); z); recurse(n, n, n)} \\ Andrew Howroyd, Apr 20 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 23 2003
EXTENSIONS
Terms a(31) and beyond from Andrew Howroyd, Apr 20 2021
STATUS
approved