A036998 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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