%I #31 May 08 2023 06:29:00
%S 0,2,1,4,10,12,36,64,120,272,496,1024,2080,4032,8256,16384,32640,
%T 65792,130816,262144,524800,1047552,2098176,4194304,8386560,16781312,
%U 33550336,67108864,134225920,268419072,536887296,1073741824,2147450880
%N Number of elements of GF(2^n) with trace 1 and subtrace 1.
%H Colin Barker, <a href="/A038521/b038521.txt">Table of n, a(n) for n = 0..1000</a>
%H K. Cattel, C. R. Miers, F. Ruskey, J. Sawada, M. Serra, <a href="http://www.ams.org/mathscinet-getitem?mr=2019413">The number of irreducible polynomials over Gf(2) with given trace and subtrace</a>, J. Combin. Math. Combin. Comput. 47 (2003) 31-64. [From _R. J. Mathar_, Oct 20 2008]
%H F. Ruskey, <a href="http://combos.org/TSpoly">Number of irreducible polynomials over GF(2) with given trace and subtrace</a>
%H F. Ruskey, <a href="http://combos.org/TSGF2">Number of elements of GF(2^n) with given trace and subtrace</a>
%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (0,2,4).
%F a(n) = C(n, r+0) + C(n, r+4) + C(n, r+8) + ... where r = 3 if n odd, r = 1 if n even.
%F From _Colin Barker_, Aug 02 2019: (Start)
%F G.f.: x*(2 + x) / ((1 - 2*x)*(1 + 2*x + 2*x^2)).
%F a(n) = ((-1-i)^(-1+n) + (-1+i)^(-1+n) + 2^n) / 2.
%F a(n) = 2*a(n-2) + 4*a(n-3) for n>2.
%F (End)
%p A038521 := proc(n) local r,a,i ; if n mod 2 = 1 then r := 3 ; else r := 1 ; fi; a :=0 ; for i from r to n by 4 do a := a+binomial(n,i) ; od; a ; end: for n from 1 to 40 do printf("%d,",A038521(n)) ; od: # _R. J. Mathar_, Oct 20 2008
%t LinearRecurrence[{0, 2, 4}, {0, 2, 1}, 33] (* _Jean-François Alcover_, May 08 2023 *)
%o (PARI) concat(0, Vec(x*(2 + x) / ((1 - 2*x)*(1 + 2*x + 2*x^2)) + O(x^35))) \\ _Colin Barker_, Aug 02 2019
%o (Magma) I:=[0,2,1]; [m le 3 select I[m] else 2*Self(m-2) + 4*Self(m-3): m in [1..33]] // _Marius A. Burtea_, Aug 02 2019
%Y Cf. A038504, A000749.
%Y Cf. A038518, A038519, A038520.
%Y Cf. A134654. - _R. J. Mathar_, Oct 20 2008
%K easy,nonn
%O 0,2
%A _Frank Ruskey_
%E Values duplicated A038520 and were replaced by _R. J. Mathar_, Oct 20 2008
|