|
%I #5 Oct 18 2019 11:56:25
%S 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,
%T 24,23,28,28,32,28,34,32,34,24,38,36,38,37,40,40,36,45,42,44,41,46,36,
%U 48,50,50,40,52,36,57,54,56,48,61,54,60,64,64,64,64,54,68,68,68,66,68,57
%N Greatest k<n with mu(n-k)=mu(n)=mu(n+k), where mu=A008683 (Moebius function).
%C a(A081237(n))=0.
%t 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 *)
%K nonn
%O 1,5
%A _Reinhard Zumkeller_, Mar 11 2003
|
