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,5

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A057562, A038566, A079124.

Sequence in context: A224712 A363301 A135941 * A121464 A090278 A256143

Adjacent sequences: A036995 A036996 A036997 * A036999 A037000 A037001

Keyword

nonn

Author

Wouter Meeussen

Extensions

Offset corrected by Amiram Eldar, Apr 24 2020

Status

approved