OFFSET
1,1
COMMENTS
LINKS
Dana Jacobsen, Table of n, a(n) for n = 1..59
PROG
(Perl) use ntheory ":all"; sub a_from_2386 { my $n = shift; $n = prev_prime($n) while !is_ramanujan_prime($n); $n } # Dana Jacobsen, Jul 13 2016
(Perl) perl -Mntheory=:all -nE 'my $n=$1 if /(\d+)$/; $r=ramanujan_primes($n>1e6 ? $n-1e6 : 2, $n); say ++$x, " ", $r->[-1]; ' b002386.txt # Dana Jacobsen, Jul 13 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
John W. Nicholson, Jul 27 2012
EXTENSIONS
Edited by N. J. A. Sloane, Aug 06 2012
a(16)-a(28) from Donovan Johnson, Nov 04 2012
STATUS
approved