OFFSET
1,4
COMMENTS
Also number of unordered divisor pairs (d,n/d) for n=A000037. - Lekraj Beedassy, Jul 30 2004
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
m=11; DivisorSigma[0, Complement[Range[m^2], Range[m]^2]]/2 (* Amiram Eldar, Nov 05 2019 *)
PROG
(PARI) lista(nn) = {for (i = 1, nn, if (! issquare(i), print1(numdiv(i)/2, ", ")); ); } \\ Michel Marcus, Jul 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Jul 05 2004
EXTENSIONS
Corrected and extended by Ray Chandler, Jul 09 2004
STATUS
approved