OFFSET
1,1
MATHEMATICA
Flatten[Position[Table[Sum[(-1)^(n-Floor[n/k]) Floor[n/k], {k, n}], {n, 0, 600}], _?(#<0&)]]-1 (* Harvey P. Dale, May 05 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, May 14 2011
STATUS
approved