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 A190502 #40 May 05 2017 19:36:14 %S A190502 0,1,1,1,2,4,7,13,23,42,75,137,255,463,872,1612,3030,5706,10749,20387, %T A190502 38635,73584,140336,268216,513705,985818,1894120,3645744,7027290, %U A190502 13561906,26207278,50697533,98182656,190335585,369323301,717267167,1394192236,2712103833 %N A190502 Number of Ramanujan primes <= 2^n. %H A190502 Dana Jacobsen, <a href="/A190502/b190502.txt">Table of n, a(n) for n = 0..56</a> %o A190502 (PARI) \\ With RR[.] is a list of A104272(.). The output of this program is n, a(n), and RR[a(n)]. %o A190502 j=0; while(2^j<RR[10^8], {n=1;while(RR[n]<=2^j,n++); if(n<=1,print(j," ",0," none"), print(j," ",n-1," ",RR[n-1])); j++}); \\ _John W. Nicholson_, Dec 01 2012 %o A190502 (Perl) use ntheory ":all"; sub a190502 { scalar(@{ramanujan_primes(1 << shift)}) } say a190502($_) for 0..20; # _Dana Jacobsen_, Dec 19 2015 %o A190502 (Perl) use ntheory ":all"; my $t = 0; for my $e (1..32) { $t += scalar(@{ramanujan_primes(2**($e-1)+1,2**$e)}); say "$e $t" } # _Dana Jacobsen_, Dec 19 2015 %o A190502 (Perl) use ntheory ":all"; say ramanujan_prime_count(2**$_) for 0..47; # _Dana Jacobsen_, Jan 03 2016 %Y A190502 Cf. A007053, A036378, A104272, A181671, A190501. %K A190502 nonn %O A190502 0,5 %A A190502 _John W. Nicholson_, May 11 2011 %E A190502 Extended by _T. D. Noe_, May 11 2011 %E A190502 Extended to n = 32 by _John W. Nicholson_, Dec 01 2012 %E A190502 a(33)-a(41) from _Dana Jacobsen_, Dec 19 2015