A027744 - OEIS

%I #12 Jun 17 2024 18:35:07

%S 1,6,18,144,432,5400,23328,254016,829440,12607488,53460000,633048768,

%T 2176782336,35784141120,173408594688,1903214880000,6849130659840,

%U 112370402481120,534356527841280,6501218491422144,20323353600000000,367285791437881344,1782862092373874688

%N Number of primitive polynomials of degree n over GF(8).

%H Andrew Howroyd, <a href="/A027744/b027744.txt">Table of n, a(n) for n = 0..100</a>

%p with(numtheory): seq(`if`(n=0, 1, phi(8^n-1)/n), n=0..22);

%t Join[{1}, Array[EulerPhi[8^# - 1]/# &, 25]] (* _Paolo Xausa_, Jun 17 2024 *)

%o (PARI) a(n) = if(n==0, 1, eulerphi(8^n-1)/n) \\ _Andrew Howroyd_, Feb 01 2024

%Y Column k=8 of A369291.

%K nonn

%O 0,2

%A _N. J. A. Sloane_

%E a(20) onwards from _Andrew Howroyd_, Feb 01 2024