OFFSET
1,1
COMMENTS
Not identical with A069116.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
For n=27: d(27)=4, sigma(27) = 1 + 3 + 9 + 27 = 40, d(40) = 8 > d(27);
27 is not in A069116.
MATHEMATICA
df[x_] := Sign[ -DivisorSigma[0, x]+DivisorSigma[0, DivisorSigma[1, x]]] Do[s=df[n]; If[Equal[s, 1]&&!PrimeQ[n], Print[n]], {n, 1, 1000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 10 2003
STATUS
approved