login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A027380 Number of irreducible polynomials of degree n over GF(8); dimensions of free Lie algebras. 4

%I #46 Nov 22 2017 16:42:33

%S 1,8,28,168,1008,6552,43596,299592,2096640,14913024,107370900,

%T 780903144,5726600880,42288908760,314146029564,2345624803704,

%U 17592184995840,132458812569720,1000799909722368,7585009898729256

%N Number of irreducible polynomials of degree n over GF(8); dimensions of free Lie algebras.

%C Number of Lyndon words with 8 letters. - _Joerg Arndt_, Jul 29 2014

%C Number of aperiodic necklaces with n beads of 8 colors. - _Herbert Kociemba_, Nov 25 2016

%D E. R. Berlekamp, Algebraic Coding Theory, McGraw-Hill, NY, 1968, p. 84.

%D M. Lothaire, Combinatorics on Words. Addison-Wesley, Reading, MA, 1983, p. 79.

%H Seiichi Manyama, <a href="/A027380/b027380.txt">Table of n, a(n) for n = 0..1110</a> (terms 0..200 from T. D. Noe)

%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 G. Viennot, <a href="http://dx.doi.org/10.1007/BFb0067950">Algèbres de Lie Libres et Monoïdes Libres</a>, Lecture Notes in Mathematics 691, Springer Verlag 1978.

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

%F G.f.: k=8, 1 - Sum_{i>=1} mu(i)*log(1 - k*x^i)/i. - _Herbert Kociemba_, Nov 25 2016

%F a(n) = Sum_{d|n} mu(d)*8^(n/d)/n for n > 0. - _Andrew Howroyd_, Oct 13 2017

%e G.f. = 1 + 8*x + 28*x^2 + 168*x^3 + 1008*x^4 + 6552*x^5 + 43596*x^6 + ...

%p A027380 := proc(n)

%p local d;

%p if n = 0 then

%p 1;

%p else

%p add( 8^(n/d)*numtheory[mobius](d),d=numtheory[divisors](n)) ;

%p %/n ;

%p end if;

%p end proc: # _R. J. Mathar_, Jun 09 2016

%t f[n_] := (1/n)*Sum[MoebiusMu[d]*8^(n/d), {d, Divisors[n]}]; f[0] = 1; Array[f, 20, 0] (* _Robert G. Wilson v_, Jul 28 2014 *)

%t mx=40;f[x_,k_]:=1-Sum[MoebiusMu[i] Log[1-k*x^i]/i,{i,1,mx}];CoefficientList[Series[f[x,8],{x,0,mx}],x] (* _Herbert Kociemba_, Nov 25 2016 *)

%o (PARI) a(n) = if(n, sumdiv(n, d, moebius(d)*8^(n/d))/n, 1) \\ _Altug Alkan_, Dec 01 2015

%Y Column 8 of A074650.

%Y Cf. A001037, A001693.

%K nonn

%O 0,2

%A _N. J. A. Sloane_

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 22:17 EDT 2024. Contains 371964 sequences. (Running on oeis4.)