|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nice,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Ruskey's website added by Joerg Arndt, Jan 16 2011
|
|
STATUS
|
approved
|
|
|
|