OFFSET
0,4
LINKS
FORMULA
a(n) = -2 if n is an odd prime (A065091).
MATHEMATICA
Table[SeriesCoefficient[Product[1/(1 + Boole[Mod[n, k] == 0] x^k), {k, 1, n}], {x, 0, n}], {n, 0, 85}]
PROG
(PARI) A300548(n) = if(!n, 1, my(p=1); fordiv(n, d, p /= (1 + 'x^d)); polcoeff(Ser(p, 'x, 1+n), n)); \\ Antti Karttunen, Nov 27 2024
KEYWORD
sign,changed
AUTHOR
Ilya Gutkovskiy, Mar 08 2018
STATUS
approved