%I #4 May 19 2018 14:53:26
%S -1,-1,-1,-1,-1,-1,-1,-1,8,8,8,8,8,8,8,8,8,8,17,17,17,17,17,17,17,17,
%T 17,17,26,26,26,26,26,26,26,26,26,26,35,35,35,35,35,35,35,35,35,35,44,
%U 44,44,44,44,44,44,44,44,44,53,53,53,53,53,53,53,53,53,53,62,62,62,62,62
%N a(n) = n - digital sum(n+1)
%C a(8)=8-ds(9)=8-9=-1; a(15)=15-ds(16)=15-(1+6)=15-7= 8; a(26)=26-ds(27)=26-(2+7)=26-9=17
%t Table[n-Total[IntegerDigits[n+1]],{n,80}] (* _Harvey P. Dale_, May 19 2018 *)
%K base,sign
%O 1,9
%A _Claudio Meller_, May 30 2009