A081236 Greatest k<n with mu(n-k)=mu(n)=mu(n+k), where mu=A008683 (Moebius function).

0, 0, 0, 0, 2, 0, 4, 4, 0, 4, 8, 8, 10, 8, 0, 12, 14, 14, 12, 16, 0, 16, 20, 20, 7, 25, 23, 24, 24, 23, 28, 28, 32, 28, 34, 32, 34, 24, 38, 36, 38, 37, 40, 40, 36, 45, 42, 44, 41, 46, 36, 48, 50, 50, 40, 52, 36, 57, 54, 56, 48, 61, 54, 60, 64, 64, 64, 64, 54, 68, 68, 68, 66, 68, 57

Offset

1,5

Comments

a(A081237(n))=0.

Links

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

Mathematica

gk[n_]:=Module[{m1=MoebiusMu[n], k=n-1}, While[m1!=MoebiusMu[n-k]||m1! = MoebiusMu[ n+k], k--]; k]; Array[gk, 80] (* Harvey P. Dale, Oct 18 2019 *)

Crossrefs

Sequence in context: A364258 A307658 A265511 * A338896 A182059 A103328

Adjacent sequences: A081233 A081234 A081235 * A081237 A081238 A081239

Keyword

nonn

Author

Reinhard Zumkeller, Mar 11 2003

Status

approved