OFFSET
1,3
LINKS
E. N. Kuz'min, Irreducible polynomials over a finite field and an analogue of Gauss sums over a field of characteristic 2, Siberian Mathematical Journal, 32, 982-989 (1991).
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