A300547 a(n) = [x^n] Product_{d|n} (1 - x^d).

1, -1, -1, -1, -1, -1, -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, -1, -1, -1, 0, -1, -1, -1, -2, -1, -2, -1, -1, -1, -1, -1, -2, -1, -1, -1, 0, -1, -1, -1, -1, -1, -1, -1, -3, -1, -1, -1, -1, -1, -2, -1, -1, -1, -1, -1, -5, -1, -1, -1, -1, -1, -3, -1, -1, -1, -1, -1, 0, -1, -1, -1, -1, -1, -2, -1, 1, -1, -1, -1, -2, -1

Offset

0,7

Links

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for sequences related to partitions

Mathematica

Table[SeriesCoefficient[Product[(1 - Boole[Mod[n, k] == 0] x^k), {k, 1, n}], {x, 0, n}], {n, 0, 85}]

Prog

(PARI) A300547(n) = { if(!n, return(1)); my(p=1); fordiv(n, d, p *= (1 - 'x^d)); polcoeff(p, n); }; \\ Antti Karttunen, Sep 25 2018

Crossrefs

Cf. A010815, A018818, A033630, A293814, A300548, A300549.

Sequence in context: A123706 A322817 A194325 * A025452 A299202 A194337

Adjacent sequences: A300544 A300545 A300546 * A300548 A300549 A300550

Keyword

sign,look

Author

Ilya Gutkovskiy, Mar 08 2018

Status

approved