OFFSET
0,2
COMMENTS
FORMULA
a(n) = n + A071650(n).
MATHEMATICA
soded[n_]:=Module[{idn=IntegerDigits[n]}, n+Total[Select[idn, OddQ]]-Total[ Select[idn, EvenQ]]]; Array[soded, 70, 0] (* Harvey P. Dale, Aug 12 2021 *)
PROG
(PARI) A304439(n)=n-vecsum(apply(t->t*(-1)^t, digits(n)))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, May 18 2018
STATUS
approved