OFFSET
1,2
COMMENTS
EXAMPLE
24 is in sequence because 24/tau(24) - sigma(24)/24 = 24/8 - 60/24 = 1/2.
MATHEMATICA
a245779[n_Integer] :=
Select[Range[n],
If[#/DivisorSigma[0, #] - DivisorSigma[1, #]/# < 1, True, False] &]; a245779[1000] (* Michael De Vlieger, Aug 07 2014 *)
Select[Range[25], #/DivisorSigma[0, #]-DivisorSigma[1, #]/#<1&] (* Harvey P. Dale, Nov 21 2023 *)
PROG
(Magma) [n:n in [1..1000000] | (Numerator((n /(#[d: d in Divisors(n)]))-(SumOfDivisors(n)/n))) / (Denominator((n/(#[d: d in Divisors(n)]))-(SumOfDivisors(n)/n))) lt 1]
(PARI)
for(n=1, 10^3, if(n/numdiv(n) - sigma(n)/n < 1, print1(n, ", "))) \\ Derek Orr, Aug 02 2014
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Jaroslav Krizek, Aug 02 2014
STATUS
approved