OFFSET
1,1
COMMENTS
Main diagonal of A093870.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local p, count;
count:= 0;
for p from n-1 by n do
if isprime(p) then
count:= count+1;
if count = n then return p fi
fi
od;
end proc:
map(f, [$1..100]); # Robert Israel, Nov 08 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 20 2004
EXTENSIONS
Edited and extended by Franklin T. Adams-Watters, Aug 29 2006
STATUS
approved