|
%I #5 Nov 21 2013 12:49:37
%S 1,1,1,1,1,1,1,1,1,1,10,10,10,10,10,10,10,10,10,10,19,19,19,19,19,19,
%T 19,19,19,19,28,28,28,28,28,28,28,28,28,28,37,37,37,37,37,37,37,37,37,
%U 37,46,46,46,46,46,46,46,46,46,46,55,55,55,55,55,55,55,55,55,55,64,64,64
%N a(n)= n - digital sum(n-1)
%C a(8)=8-ds(7)=8-7=1; a(15)=15-ds(14)=15-5=10; a(26)=26-ds(25)=26-7=19
%t Table[n-Total[IntegerDigits[n-1]],{n,80}] (* _Harvey P. Dale_, Apr 20 2011 *)
%K nonn,base
%O 1,11
%A _Claudio Meller_, May 30 2009
|
