%I #14 Sep 08 2022 08:45:08
%S 0,1,1,2,3,5,8,13,5,2,7,9,0,9,9,2,11,13,8,5,13,2,15,1,0,1,1,2,3,5,8,
%T 13,5,2,7,9,0,9,9,2,11,13,8,5,13,2,15,1,0,1,1,2,3,5,8,13,5,2,7,9,0,9,
%U 9,2,11,13,8,5,13,2,15,1,0,1,1,2,3,5,8,13,5,2,7,9,0,9,9,2,11,13,8,5,13,2
%N Fibonacci(n) mod 16.
%C Periodic with period 24. - _Jon Perry_, Jan 08 2003
%H Vincenzo Librandi, <a href="/A079345/b079345.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_24">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, 0, 0, 0, 1).
%e a(8) = F(8) mod 16 = 21 mod 16 = 5.
%t a={};Do[f=Fibonacci[n];AppendTo[a,Mod[f,16]],{n,1,30}];a (* _Vladimir Joseph Stephan Orlovsky_, Jul 23 2008 *)
%t Table[Mod[Fibonacci[n], 16], {n, 0, 100}] (* _Vincenzo Librandi_, Feb 04 2014 *)
%o (PARI) for (n=1,100,print1(fibonacci(n)%16","))
%o (Magma) [Fibonacci(n) mod 16: n in [0..100]]; // _Vincenzo Librandi_, Feb 04 2014
%Y Cf. A079343, A079344.
%K nonn,easy
%O 0,4
%A _Jon Perry_, Jan 04 2003