A190614 - OEIS

%I #7 May 05 2023 13:46:58

%S 22,46,58,70,73,78,94,106,118,126,142,145,154,166,178,190,193,214,238,

%T 241,250,262,278,286,289,298,310,313,318,334,337,346,358,361,382,406,

%U 414,418,421,430,433,438,442,446,466,478,481,498,502,505,526,538,550,558,570,574,577

%N Values of n where A190613(n) < 0.

%t 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 *)

%K nonn

%O 1,1

%A _Franklin T. Adams-Watters_, May 14 2011