|
%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
|
