OFFSET
1,1
COMMENTS
Only 13 of the first 2500 terms are odd, and each one of them is a multiple of 5. - Harvey P. Dale, Jun 15 2014
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2500
MATHEMATICA
Select[Range[3000], # DivisorSigma[0, #]>Prime[3#]&] (* Harvey P. Dale, Jun 15 2014 *)
PROG
(PARI) for(n=1, 3300, if(n*numdiv(n)>prime(3*n), print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 28 2002
STATUS
approved