%I #10 Sep 08 2022 08:46:15
%S 2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,
%T 11,18,29,7,36,3,39,2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,11,18,29,7,
%U 36,3,39,2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,11,18,29,7,36,3,39,2,1,3,4,7,11
%N Lucas numbers mod 40.
%C This sequence is of period 12.
%C This is one of four sequences that are period 12 of the form Lucas[n] Mod x, where x is 8,10,20,40.
%H G. C. Greubel, <a href="/A268615/b268615.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n+12) = a(n).
%t Table[Mod[LucasL[n],40], {n,0,100}]
%t PadRight[{},120,{2,1,3,4,7,11,18,29,7,36,3,39}] (* _Harvey P. Dale_, Feb 04 2019 *)
%o (Magma) [Lucas(n) mod 40: n in [0..100]]; // _Vincenzo Librandi_, Feb 09 2016
%Y Cf. A000032, A111958, A130893, A268613.
%K nonn,easy
%O 0,1
%A _G. C. Greubel_, Feb 08 2016