OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
ResultList = {1}; Do[
If[ (DivisorSigma[0, k] > Total[Times @@@ FactorInteger[k]]),
AppendTo[ResultList, k]], {k, 2, 10000}]; ResultList
PROG
(PARI) isok(n) = my(f=factor(n)); sum(i=1, #f~, f[i, 1]*f[i, 2]) < numdiv(n); \\ Michel Marcus, Jun 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Richard R. Forberg, Jan 15 2015
EXTENSIONS
a(1) = 1 inserted by Amiram Eldar, Jun 22 2019
STATUS
approved