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