A341064 Number of ways to write n as an ordered sum of 4 squarefree numbers.

1, 4, 10, 16, 23, 32, 50, 68, 83, 92, 116, 148, 178, 192, 224, 276, 335, 360, 400, 460, 547, 580, 634, 704, 821, 868, 938, 1024, 1162, 1212, 1288, 1392, 1572, 1628, 1742, 1876, 2123, 2172, 2308, 2460, 2761, 2820, 2964, 3176, 3550, 3628, 3778, 4028, 4481, 4528, 4686, 4932, 5513, 5564

Offset

4,2

Links

Table of n, a(n) for n=4..57.

Formula

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

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, 4):
seq(a(n), n=4..57);  # Alois P. Heinz, Feb 04 2021

Mathematica

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

Crossrefs

Cf. A005117, A008683, A008966, A098235, A280210, A308767, A341065, A341066, A341067, A341068, A341069, A341070.

Sequence in context: A184527 A246297 A049881 * A366661 A271911 A322948

Adjacent sequences: A341061 A341062 A341063 * A341065 A341066 A341067

Keyword

nonn

Author

Ilya Gutkovskiy, Feb 04 2021

Status

approved