OFFSET
1,5
LINKS
Robert Israel, Table of n, a(n) for n = 1..4782
MAPLE
seq(2 &^n mod combinat:-fibonacci(n), n=1..100); # Robert Israel, Jul 13 2018
MATHEMATICA
Table[Mod[2^n, Fibonacci[n]], {n, 1, 80}] (* Vladimir Joseph Stephan Orlovsky, Apr 03 2011*)
Table[PowerMod[2, n, Fibonacci[n]], {n, 40}] (* Harvey P. Dale, Dec 30 2018 *)
PROG
(Sage) [power_mod(2, n, fibonacci(n))for n in range(1, 41)] # Zerinvary Lajos, Nov 28 2009
(PARI) a(n)=2^n%fibonacci(n) \\ Charles R Greathouse IV, Jun 19 2017
(GAP) List([1..42], n->PowerMod(2, n, Fibonacci(n))); # Muniru A Asiru, Jul 13 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Sep 08 2000
STATUS
approved