A369217 Number of partitions of n into squarefree parts not greater than sqrt(n).

1, 1, 1, 1, 3, 3, 4, 4, 5, 12, 14, 16, 19, 21, 24, 27, 30, 33, 37, 40, 44, 48, 52, 56, 61, 156, 172, 189, 207, 226, 247, 268, 291, 315, 340, 367, 892, 973, 1064, 1159, 1260, 1368, 1485, 1604, 1735, 1872, 2016, 2169, 2333, 5431, 5897, 6394, 6923, 7486, 8088, 8724

Offset

0,5

Links

Table of n, a(n) for n=0..55.

Mathematica

Table[SeriesCoefficient[Product[1/(1 - Boole[SquareFreeQ[k]] x^k), {k, 1, Floor[Sqrt[n]]}], {x, 0, n}], {n, 0, 55}]

Crossrefs

Cf. A073576, A097356.

Sequence in context: A120196 A196179 A120188 * A369218 A097356 A083522

Adjacent sequences: A369214 A369215 A369216 * A369218 A369219 A369220

Keyword

nonn

Author

Ilya Gutkovskiy, Jan 16 2024

Status

approved