|
%I #12 Jul 27 2020 14:55:19
%S 1,-2,3,-4,5,-6,7,-8,9,1,2,-1,4,-3,6,-5,8,-7,10,-2,-1,-4,1,-6,3,-8,5,
%T -10,7,3,4,1,6,-1,8,-3,10,-5,12,-4,-3,-6,-1,-8,1,-10,3,-12,5,5,6,3,8,
%U 1,10,-1,12,-3,14,-6,-5,-8,-3,-10,-1,-12,1,-14,3,7,8,5,10
%N Difference between sums of odd and even digits of n.
%H Michel Marcus, <a href="/A071650/b071650.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A071649(n) - A071648(n);
%F a(A036301(n)) = 0.
%t Table[Total[Select[IntegerDigits[n],OddQ]]-Total[Select[ IntegerDigits[ n],EvenQ]],{n,80}] (* _Harvey P. Dale_, Jul 27 2020 *)
%o (PARI) a(n) = {my(d=digits(n), s = 0); for (k=1, #d, if (d[k] % 2, s += d[k], s -= d[k]);); s;} \\ _Michel Marcus_, Aug 05 2017
%o (PARI) A071650(n)=-vecsum(apply(t->(-1)^t*t,digits(n))) \\ _M. F. Hasler_, Dec 09 2018
%Y Cf. A036301, A071648, A071649.
%K sign,look,base
%O 1,2
%A _Reinhard Zumkeller_, May 28 2002
|
