OFFSET
1,1
COMMENTS
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..8787 (all terms < 10000)
MATHEMATICA
With[{as=Table[Floor[Total[Complement[Range[2, n], Divisors[n]]/n]], {n, 1000}]}, Flatten[Position[Partition[as, 2, 1], _?(First[#]>Last[#]&), {1}, Heads->False]]]+1 (* Harvey P. Dale, Sep 10 2014 *)
PROG
(Magma) [n: n in [2..10000] | Floor((((n*(n+1))div 2 - SumOfDivisors(n)) div n)) lt Floor((((n*(n-1))div 2 - SumOfDivisors(n-1)) div (n-1)))]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jun 25 2014
STATUS
approved