OFFSET
1,1
EXAMPLE
d(sigma(14)) = d(24) = 8, and sigma(d(14)) = sigma(4) = 7. Since 8 > 7, 14 is in the sequence.
MAPLE
with(numtheory): a:=proc(n) if tau(sigma(n))>sigma(tau(n)) then n else fi end: seq(a(n), n=1..122); # Emeric Deutsch, Feb 06 2006
MATHEMATICA
okQ[n_] := DivisorSigma[0, DivisorSigma[1, n]] >
DivisorSigma[1, DivisorSigma[0, n]];
Select[Range[120], okQ] (* Jean-François Alcover, Nov 14 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 23 2006
EXTENSIONS
More terms from Emeric Deutsch, Feb 06 2006
STATUS
approved