A081222 Smallest number m with Sum_{k=n..n+m} mu(k) = 0, where mu=A008683 (Möbius function).

1, 92, 36, 0, 1, 1, 3, 0, 0, 1, 4, 0, 1, 5, 2, 0, 5, 0, 2, 0, 9, 1, 3, 0, 0, 3, 0, 0, 6, 4, 2, 0, 40, 9, 2, 0, 1, 4, 2, 0, 17, 15, 3, 0, 0, 1, 4, 0, 0, 0, 2, 0, 2, 0, 16, 0, 4, 1, 6, 0, 1, 5, 0, 0, 1, 27, 2, 0, 1, 17, 6, 0, 1, 5, 0, 0, 1, 8, 3, 0, 0, 1, 2, 0, 24, 19, 2, 0, 2, 0, 12, 0, 9, 7, 2, 0, 120, 0, 0

Offset

1,2

Comments

a(n) = 0 if and only if n is in A013929. - Robert Israel, Jan 21 2019

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

f:= proc(n) local t, k;
  t:= 0;
  for k from n do
    t:= t + numtheory:-mobius(k);
    if t=0 then return k-n fi
  od
end proc:
map(f, [$1..100]); # Robert Israel, Jan 21 2019

Mathematica

a[n_] := Module[{t = 0, k}, For[k = n, True, k++, t += MoebiusMu[k]; If[t == 0, Return[k - n]]]];
Array[a, 100] (* Jean-François Alcover, Aug 24 2020, after Maple *)

Crossrefs

Cf. A002321, A008683, A013929, A028442.

Sequence in context: A323060 A031200 A075479 * A033412 A015236 A057702

Adjacent sequences: A081219 A081220 A081221 * A081223 A081224 A081225

Keyword

nonn

Author

Reinhard Zumkeller, Mar 10 2003

Extensions

Corrected by Robert Israel, Jan 21 2019

Status

approved