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

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, 255, 4, 339, 23, 59, 22, 130, 11, 759, 32, 115, 22, 1259, 10, 1609, 44, 94, 64, 2589, 22, 1674, 40, 385, 84, 5119, 30, 1309, 79, 665, 162, 9791, 18, 12075, 217, 556, 276

Offset: 1

Author

Wouter Meeussen

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A057562, A038566, A079124.

Programs

Haskell

a036998 n = p (a038566_row n) n where
   p _      0 = 1
   p []     _ = 0
   p (k:ks) m = if m < k then 0 else p ks (m - k) + p ks m
-- Reinhard Zumkeller, Jul 05 2013

Mathematica

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

Extensions

Offset corrected by Amiram Eldar, Apr 24 2020