OFFSET
1,1
COMMENTS
39614081257132168796771975162 is also a term. - Donovan Johnson, Nov 28 2012
19495118728903626376363904 = 2^7*152305615069559581065343 is a term. - Martin Ehrenstein, Jul 31 2023
MATHEMATICA
f[n_] := FullSimplify[Log[DivisorSigma[1, n] - n]/Log[DivisorSigma[0, n]]]; Select[Range[2, 1000], IntegerQ[f[#]] && f[#] > 0 &] (* T. D. Noe, Nov 27 2012 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zdenek Cervenka, Nov 27 2012
EXTENSIONS
a(16)-a(17) from Donovan Johnson, Nov 28 2012
a(18)-a(22) from Martin Ehrenstein, Jul 31 2023
STATUS
approved