A036998 - OEIS

%I #13 Apr 24 2020 08:17:27

%S 1,0,1,1,2,1,4,2,3,2,11,2,17,3,5,5,37,3,53,5,12,7,103,5,70,10,42,11,

%T 255,4,339,23,59,22,130,11,759,32,115,22,1259,10,1609,44,94,64,2589,

%U 22,1674,40,385,84,5119,30,1309,79,665,162,9791,18,12075,217,556,276

%N The number of decompositions of n into different parts relatively prime to n.

%H Amiram Eldar, <a href="/A036998/b036998.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[ Coefficient[ Series[ Times@@((1+z^#)&/@Select[ Range[ q ], GCD[ #, q ]===1& ]), { z, 0, q} ], z^q ], {q, 128} ]

%o (Haskell)

%o a036998 n = p (a038566_row n) n where

%o    p _      0 = 1

%o    p []     _ = 0

%o    p (k:ks) m = if m < k then 0 else p ks (m - k) + p ks m

%o -- _Reinhard Zumkeller_, Jul 05 2013

%Y Cf. A057562, A038566, A079124.

%K nonn

%O 1,5

%A _Wouter Meeussen_

%E Offset corrected by _Amiram Eldar_, Apr 24 2020