This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A057862 #22 Dec 07 2019 12:18:22 %S A057862 0,0,0,1,2,0,11,4,2,34,1,64,37,173,438,394,118,1160,1663,1,6466,14508, %T A057862 20764,38368,18257,99928,64234,202972,15836,410224,184593,1520257, %U A057862 538006,2773540,5886173,9996832,5132559,9902536,21703576,33466456 %N A057862 a(n) = 2^n mod Fibonacci(n). %H A057862 Robert Israel, <a href="/A057862/b057862.txt">Table of n, a(n) for n = 1..4782</a> %F A057862 a(n) = A000079(n) - A057861(n)*A000045(n) %p A057862 seq(2 &^n mod combinat:-fibonacci(n), n=1..100); # _Robert Israel_, Jul 13 2018 %t A057862 Table[Mod[2^n,Fibonacci[n]],{n,1,80}] (* _Vladimir Joseph Stephan Orlovsky_, Apr 03 2011*) %t A057862 Table[PowerMod[2,n,Fibonacci[n]],{n,40}] (* _Harvey P. Dale_, Dec 30 2018 *) %o A057862 (Sage) [power_mod(2,n,fibonacci(n))for n in range(1,41)] # _Zerinvary Lajos_, Nov 28 2009 %o A057862 (PARI) a(n)=2^n%fibonacci(n) \\ _Charles R Greathouse IV_, Jun 19 2017 %o A057862 (GAP) List([1..42],n->PowerMod(2,n,Fibonacci(n))); # _Muniru A Asiru_, Jul 13 2018 %Y A057862 Cf. A000045, A000079. %K A057862 nonn %O A057862 1,5 %A A057862 _Henry Bottomley_, Sep 08 2000