A343190 a(1) = ... = a(5) = 1; a(n+5) = Sum_{d|n} mu(n/d) * a(d).

1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, -2, -2, -1, -2, -1, -3, -2, -2, -2, -1, -3, -3, 0, -3, 0, -3, -2, -1, -1, -1, -2, -2, 1, -1, 3, -3, -1, 2, 2, 2, -1, -2, 5, 4, 4, -2, 1, 5, 7, 6, -1, 0, 10, 7, 10, 0, 0, 9, 14, 9, 0, 2, 12, 15, 14, -1, 3, 14, 18

Offset

1,17

Links

Table of n, a(n) for n=1..75.

Mathematica

a[1] = a[2] = a[3] = a[4] = a[5] = 1; a[n_] := a[n] = Sum[MoebiusMu[(n - 5)/d] a[d], {d, Divisors[n - 5]}]; Table[a[n], {n, 75}]

Crossrefs

Cf. A007554, A307995, A318583, A343188, A343189.

Sequence in context: A298824 A343384 A237615 * A256132 A340057 A303476

Adjacent sequences: A343187 A343188 A343189 * A343191 A343192 A343193

Keyword

sign

Author

Ilya Gutkovskiy, Apr 07 2021

Status

approved