OFFSET
1,1
MATHEMATICA
Resto = Function[n, Sum[n/k - Floor[n/k], {k, 1, n}]]; oops = Floor[Map[Resto, Range[1, 10000]]]; Complement[Range[Max[oops]], Union[oops]]
f[n_] := Floor[Plus @@ FractionalPart[n/Range[2, n - 1]]]; t = {}; Do[ a = f[n]; If[ Position[t, a] == {}, AppendTo[t, a]], {n, 1500}]; Take[ Complement[ Range[ Max[ t]], t], 60] (* Robert G. Wilson v, Feb 19 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Feb 08 2005
EXTENSIONS
Edited and corrected by Robert G. Wilson v, Feb 19 2005
STATUS
approved