|
%I #11 Nov 26 2016 09:54:31
%S 0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,9,11,9,12,9,13,9,14,9,15,
%T 9,16,9,17,9,18,9,19,9,20,18,21,18,22,18,23,18,24,18,25,18,26,18,27,
%U 18,28,18,29,18,30,27,31,27,32,27,33,27,34,27,35,27,36,27,37,27,38,27,39,27
%N n followed by (n - sum of digits of n).
%H Harvey P. Dale, <a href="/A171181/b171181.txt">Table of n, a(n) for n = 0..1000</a>
%F If n is even, a(n) = n/2; if n is odd, a(n) = A066568(floor(n/2)). - _Michel Marcus_, Aug 14 2013
%e a(0) = 0, a(1) = 0 - 0 = 0.
%e a(2) = 1, a(3) = 1 - 1 = 0.
%e a(4) = 2, a(5) = 2 - 2 = 0.
%e a(6) = 3, a(7) = 3 - 3 = 0.
%t Table[{n,n-Total[IntegerDigits[n]]},{n,0,40}]//Flatten (* _Harvey P. Dale_, Nov 26 2016 *)
%o (PARI) a(n) = if (n % 2 == 0, n/2, nn = n\2; d = digits(nn); nn - sum(i=1, #d, d[i]);); \\ _Michel Marcus_, Aug 14 2013
%Y Interspersion of A001477 and A066568.
%K easy,nonn,base
%O 0,5
%A Marcel Hetkowski Fabeny (marcelfabeny(AT)yahoo.com.br), Dec 04 2009
%E Edited by _N. J. A. Sloane_, Dec 05 2009
|
