OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) nud(n) = numdiv(n)-2^omega(n); j=[]; for(n=1, 500, if(nud(n)>omega(n), j=concat(j, n))); j
(PARI) is(n)=my(f=factor(n)[, 2]); prod(i=1, #f, f[i]+1)>2^#f+#f \\ Charles R Greathouse IV, Sep 18 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 28 2001
EXTENSIONS
Offset corrected by Charles R Greathouse IV, Sep 18 2015
STATUS
approved