A023015 Number of partitions of n into parts of 17 kinds.

1, 17, 170, 1275, 7905, 42619, 206091, 912475, 3753600, 14503040, 53073898, 185172670, 619237835, 1993524975, 6200890505, 18693654410, 54763023032, 156250892610, 435071511875, 1184288668525, 3156320339542, 8247548150893, 21155326555195, 53326448236250

Offset

0,2

Comments

a(n) is Euler transform of A010856. - Alois P. Heinz, Oct 17 2008

Links

Alois P. Heinz, Table of n, a(n) for n = 0..1000

Index entries for expansions of Product_{k >= 1} (1-x^k)^m

N. J. A. Sloane, Transforms

Formula

a(0) = 1, a(n) = (17/n)*Sum_{k=1..n} A000203(k)*a(n-k) for n > 0. - Seiichi Manyama, Mar 27 2017

Maple

with(numtheory): a:= proc(n) option remember; `if`(n=0, 1, add(add(d*17, d=divisors(j)) *a(n-j), j=1..n)/n) end: seq(a(n), n=0..40); # Alois P. Heinz, Oct 17 2008

Mathematica

CoefficientList[Series[1/QPochhammer[x]^17, {x, 0, 30}], x] (* Indranil Ghosh, Mar 27 2017 *)

Prog

(PARI) Vec(1/eta(x)^17 + O(x^30)) \\ Indranil Ghosh, Mar 27 2017

Crossrefs

Cf. 17th column of A144064. - Alois P. Heinz, Oct 17 2008

Sequence in context: A155658 A121037 A282922 * A022645 A326211 A164747

Adjacent sequences: A023012 A023013 A023014 * A023016 A023017 A023018

Keyword

nonn

Author

David W. Wilson

Status

approved