login
A074031
Number of degree-n irreducible polynomials over GF(4) with trace 0 and subtrace 0.
5
1, 0, 2, 0, 15, 40, 153, 480, 1841, 6528, 23901, 87040, 322875, 1198080, 4474738, 16773120, 63164175, 238605640, 904213989, 3435921408, 13089461538, 49977753600, 191219550297, 733007052640, 2814750270420, 10825959997440, 41699998413248, 160842834247680
OFFSET
1,3
MATHEMATICA
k = 2; q = 2^k;
v[t_] := If[t === 0, q - 1, -1];
dd[a_, n_] := With[{m = Floor[(n + 1)/4]},
q^(n - 2) + Switch[Mod[n, 4],
2, 0,
0, -v[a] q^((n - 2)/2) (-1)^(m k),
_, v[a] q^((n - 3)/2) (-1)^(m k)
]];
h[n_, 0, a_] := 1/n Sum[MoebiusMu[d] (dd[a, n/d] - Boole[EvenQ[n]] q^(n/(2d)-1)), {d, Select[Divisors[n], OddQ]}];
Table[h[n, 0, 0], {n, 30}] (* this sequence *)
Table[h[n, 0, 1], {n, 30}] (* A074032 *)
(* Andrey Zabolotskiy, Dec 15 2020 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Frank Ruskey and Nate Kube, Aug 26 2002
EXTENSIONS
More terms from Ruskey's website added by Joerg Arndt, Jan 16 2011
Terms a(17) and beyond from Andrey Zabolotskiy, Dec 15 2020
STATUS
approved