|
%I #18 Oct 13 2022 12:45:55
%S 0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,0,0,0,1,1,1,1,1,0,1,0,1,
%T 0,0,1,1,0,0,0,1,0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,0,0,0,1,
%U 1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1
%N Period 21: repeat (0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1).
%H Michael R. Bush and Danjoseph Quijada, <a href="https://arxiv.org/abs/1805.03238">Period sets of linear recurrence over finite fields and related commutative rings</a>, arXiv:1805.03238 [math.NT], 2018 (see Remark 3.7, page 13).
%H <a href="/index/Rec#order_21">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).
%F G.f.: x^4*(1+x+x^2+x^3+x^4+x^6+x^8+x^11+x^12+x^16)/(1-x^21).
%F a(n) = a(n-21) for n >= 21.
%t CoefficientList[Series[(x^4 (1 + x + x^2 + x^3 + x^4 + x^6 + x^8 + x^11 + x^12 + x^16))/(1 - x^21), {x, 0, 100}], x]
%t PadRight[{},120,{0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1}] (* _Harvey P. Dale_, Oct 13 2020 *)
%o (Magma) &cat[[0,0,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1]^^4];
%K nonn,easy
%O 0
%A _Vincenzo Librandi_, May 15 2018
|
