A369220 Number of compositions (ordered partitions) of n into squarefree parts not greater than sqrt(n).
1, 1, 1, 1, 5, 8, 13, 21, 34, 149, 274, 504, 927, 1705, 3136, 5768, 10609, 19513, 35890, 66012, 121415, 223317, 410744, 755476, 1389537, 4586976, 8662591, 16359466, 30895160, 58346092, 110187694, 208091537, 392984789, 742159180, 1401581598, 2646913261, 7359931330, 14066178853
Offset: 0
Keywords
Programs
-
Mathematica
Table[SeriesCoefficient[1/(1 - Sum[Boole[SquareFreeQ[k]] x^k, {k, 1, Floor[Sqrt[n]]}]), {x, 0, n}], {n, 0, 37}]