OFFSET
1,1
COMMENTS
Visible sharp bends on the graph around the 500th and 15000th terms occur where the ratio prime(n)/n exceeds 8 and 12, correspondingly. - Ivan Neretin, Oct 16 2016
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..20000
MATHEMATICA
Select[Range@135, Prime[#] < #*DivisorSigma[0, #] &] (* Ivan Neretin, Oct 16 2016 *)
PROG
(PARI) for(n=1, 171, if(prime(n)<n*numdiv(n), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 24 2002
STATUS
approved