A341066 Number of ways to write n as an ordered sum of 6 squarefree numbers.

1, 6, 21, 50, 96, 162, 267, 426, 645, 902, 1218, 1632, 2187, 2826, 3543, 4402, 5547, 6906, 8397, 10032, 12108, 14578, 17298, 20112, 23517, 27534, 32034, 36592, 41892, 48018, 54886, 61758, 69549, 78408, 88365, 98274, 109478, 122058, 136230, 150114, 165759, 183114, 202630, 221484

Offset

6,2

Links

Table of n, a(n) for n=6..49.

Example

G.f.: (Sum_{k>=1} mu(k)^2 * x^k)^6.

Maple

b:= proc(n, t) option remember;
      `if`(n=0, `if`(t=0, 1, 0), `if`(t<1, 0, add(
      `if`(numtheory[issqrfree](j), b(n-j, t-1), 0), j=1..n)))
    end:
a:= n-> b(n, 6):
seq(a(n), n=6..49);  # Alois P. Heinz, Feb 04 2021

Mathematica

nmax = 49; CoefficientList[Series[Sum[MoebiusMu[k]^2 x^k, {k, 1, nmax}]^6, {x, 0, nmax}], x] // Drop[#, 6] &

Crossrefs

Cf. A005117, A008683, A008966, A098235, A280210, A308902, A341064, A341065, A341067, A341068, A341069, A341070.

Sequence in context: A028345 A357691 A341985 * A263418 A097124 A309568

Adjacent sequences: A341063 A341064 A341065 * A341067 A341068 A341069

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 04 2021

Status

approved