|
%I #16 Jan 23 2024 02:20:51
%S 1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,
%T 0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,0,1,
%U 1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,0,1,1,1,1,1,1
%N Central column of a Moebius-binomial triangle.
%C Central column of A105586. Partial sums are A105235.
%H Antti Karttunen, <a href="/A105234/b105234.txt">Table of n, a(n) for n = 0..65537</a>
%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%F a(n) = binomial(abs(mu(2n)), abs(mu(n))).
%t a[n_]:=Binomial[Abs[MoebiusMu[2n]],Abs[MoebiusMu[n]]];Table[a[n],{n,0,100}] (* _James C. McMahon_, Jan 22 2024 *)
%o (PARI) A105234(n) = if(n<2,1,binomial(abs(moebius(2*n)), abs(moebius(n)))); \\ _Antti Karttunen_, Sep 13 2017
%Y Cf. A105235, A105586.
%Y Cf. A008683, A105597.
%K easy,nonn
%O 0,1
%A _Paul Barry_, Apr 14 2005
|
