login
A027743
Number of primitive polynomials of degree n over GF(7).
7
1, 2, 8, 36, 160, 1120, 6048, 37856, 192000, 1376352, 8512000, 59865432, 261273600, 2484333600, 15433134080, 96689376000, 520863744000, 4561057021824, 27124330415616, 199503336577688, 958110720000000, 8107845416745984, 56613417213661440, 388083262835207968
OFFSET
0,2
LINKS
MAPLE
with(numtheory): seq(`if`(n=0, 1, phi(7^n-1)/n), n=0..23);
MATHEMATICA
Join[{1}, Array[EulerPhi[7^# - 1]/# &, 25]] (* Paolo Xausa, Jun 17 2024 *)
PROG
(PARI) a(n) = if(n==0, 1, eulerphi(7^n-1)/n) \\ Andrew Howroyd, Feb 01 2024
CROSSREFS
Column k=7 of A369291.
Sequence in context: A088675 A228197 A326244 * A152124 A147722 A089387
KEYWORD
nonn
EXTENSIONS
a(21) onwards from Andrew Howroyd, Feb 01 2024
STATUS
approved