OFFSET
10,4
MATHEMATICA
Table[f = 0; Do[If[k < DivisorSigma[0, k]^(n/10), f++], {k, 10^4}]; f, {n, 10, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, May 14 2013
STATUS
approved