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 A073800 #10 Dec 18 2024 21:00:48
%S A073800 2,4,0,7,2,4,2,1,0,16,8,1,8,16,18,16,14,8,8,0,2,30,18,28,14,4,8,16,28,
%T A073800 19,6,16,29,34,8,40,2,14,8,16,14,4,8,4,0,49,62,52,32,4,8,46,17,20,65,
%U A073800 22,32,16,62,64,32,64,41,16,32,64,48,70,48,24,32,22,74,84,8,16,32,52
%N A073800 Remainder of division 2^n/c(n), where c(n)=A002808(n), the n-th composite.
%H A073800 Sean A. Irvine, <a href="/A073800/b073800.txt">Table of n, a(n) for n = 1..10000</a>
%t A073800 Table[Mod[2^j, FixedPoint[j+PrimePi[ # ]+1&, j]], {j, 1, 128}]
%t A073800 Module[{c=Select[Range[200],CompositeQ],len},len=Length[c];Table[ PowerMod[ 2,n,c[[n]]],{n,len}]] (* _Harvey P. Dale_, Mar 03 2018 *)
%Y A073800 Cf. A000079, A002808, A015910, A062173, A064367, A073797, A073798, A073799.
%K A073800 nonn
%O A073800 1,1
%A A073800 _Labos Elemer_, Aug 12 2002