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 A073719 #18 Jun 21 2024 05:50:59
%S A073719 0,0,0,1,2,2,3,4,5,5,6,7,8,8,9,10,11,12,12,13,14,15,15,16,17,18,18,19,
%T A073719 20,20,21,22,23,23,24,25,26,26,27,28,28,29,30,31,31,32,33,33,34,35,36,
%U A073719 36,37,38,38,39,40,41,41,42,43,43,44,45,46,46,47,48,48,49,50
%N A073719 a(n) = floor(prime(2^n)/composite(2^n)).
%F A073719 a(n) = floor(A000040(A000079(n))/A002818(A000079(n))).
%F A073719 a(n) = floor(A033844(n)/A065856(n)). - _Charles R Greathouse IV_, Jul 08 2013
%t A073719 c[x_] := FixedPoint[x + PrimePi[#] + 1 &, x]; Table[Floor[Prime[z = 2^n]/c[z]], {n, 40}] (* _Jayanta Basu_, Jul 08 2013 *)
%Y A073719 Cf. A000040, A000079, A002818, A033844, A065856, A073459.
%K A073719 nonn
%O A073719 0,5
%A A073719 _Labos Elemer_, Aug 05 2002
%E A073719 Offset changed to 0, a(0) prepended and a(41)-a(70) added by _Amiram Eldar_, Jun 21 2024