login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A022553 Number of binary Lyndon words containing n letters of each type; periodic binary sequences of period 2n with n zeros and n ones in each period. 24

%I

%S 1,1,1,3,8,25,75,245,800,2700,9225,32065,112632,400023,1432613,

%T 5170575,18783360,68635477,252085716,930138521,3446158600,12815663595,

%U 47820414961,178987624513,671825020128,2528212128750,9536894664375,36054433807398,136583760011496

%N Number of binary Lyndon words containing n letters of each type; periodic binary sequences of period 2n with n zeros and n ones in each period.

%C Also number of asymmetric rooted plane trees with n+1 nodes. - _Christian G. Bower_

%C Conjecturally, number of irreducible alternating Euler sums of depth n and weight 3n.

%C a(n+1) is inverse Euler transform of A000108. Inverse Witt transform of A006177.

%C Dimension of the degree n part of the primitive Lie algebra of the Hopf algebra CQSym (Catalan Quasi-Symmetric functions). - Jean-Yves Thibon (jyt(AT)univ-mlv.fr), Oct 22 2006

%C For n>0, 2*a(n) is divisible by n (cf. A268619), 12*a(n) is divisible by n^2 (cf. A268592). - _Max Alekseyev_, Feb 09 2016

%D F. Bergeron, G. Labelle and P. Leroux, Combinatorial Species and Tree-Like Structures, Cambridge, 1998, p. 336 (4.4.64)

%H Alois P. Heinz, <a href="/A022553/b022553.txt">Table of n, a(n) for n = 0..1000</a>

%H D. J. Broadhurst, <a href="http://arXiv.org/abs/hep-th/9604128">On the enumeration of irreducible k-fold Euler sums and their roles in knot theory and field theory</a>, arXiv:hep-th/9604128, 1996.

%H H. Munthe-Kaas and A. Lundervold, <a href="http://arxiv.org/abs/1203.4738">On post-Lie algebras, Lie-Butcher series and moving frames</a>, arXiv preprint arXiv:1203.4738 [math.NA], 2012. - From _N. J. A. Sloane_, Sep 20 2012

%H J.-C. Novelli and J.-Y. Thibon, <a href="http://arXiv.org/abs/math.CO/0511200">Hopf algebras and dendriform structures arising from parking functions</a>, arXiv:math/0511200 [math.CO], 2005.

%H Y. Puri and T. Ward, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL4/WARD/short.html">Arithmetic and growth of periodic orbits</a>, J. Integer Seqs., Vol. 4 (2001), #01.2.1.

%H <a href="/index/Ro#rooted">Index entries for sequences related to rooted trees</a>

%H <a href="/index/Lu#Lyndon">Index entries for sequences related to Lyndon words</a>

%F a(n) = A060165(n)/2 = A007727(n)/(2*n) = A045630(n)/n.

%F Product_n (1-x^n)^a(n) = 2/(1+sqrt(1-4*x)); a(n) = 1/(2*n) * Sum_{d|n} mu(n/d)*C(2*d,d). Also Moebius transform of A003239. - _Christian G. Bower_

%F a(n) ~ 2^(2*n-1) / (sqrt(Pi) * n^(3/2)). - _Vaclav Kotesovec_, Sep 11 2014

%p with(numtheory):

%p a:= n-> `if`(n=0, 1,

%p add(mobius(n/d)*binomial(2*d, d), d=divisors(n))/(2*n)):

%p seq(a(n), n=0..30); # _Alois P. Heinz_, Jan 21 2011

%t a[n_] := Sum[MoebiusMu[n/d]*Binomial[2d, d], {d, Divisors[n]}]/(2n); a[0] = 1; Table[a[n], {n, 0, 30}] (* _Jean-Fran├žois Alcover_, Feb 02 2015 *)

%o (PARI) a(n)=if(n<1,n==0,sumdiv(n,d,moebius(n/d)*binomial(2*d,d))/2/n)

%o (Python)

%o from sympy import mobius, binomial, divisors

%o def a(n): return 1 if n==0 else sum([mobius(n/d)*binomial(2*d, d) for d in divisors(n)])/(2*n)

%o print map(a, xrange(31)) # _Indranil Ghosh_, Aug 05 2017

%Y Cf. A003239, A005354, A000740, A007727, A086655.

%Y A diagonal of the square array described in A051168.

%K nonn

%O 0,4

%A _David Broadhurst_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 23 00:33 EST 2018. Contains 299473 sequences. (Running on oeis4.)