OFFSET
1,7
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A244329[n_] := Floor[(n*(n + 1)/2 - #)/#] & [DivisorSigma[1, n]];
Array[A244329, 100] (* Paolo Xausa, Sep 01 2024 *)
PROG
(Magma) [Floor(((n*(n+1)div 2)-SumOfDivisors(n)) div (SumOfDivisors(n))) : n in [1..1000]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 08 2014
STATUS
approved