A304440 Add to n the sum of its even digits minus the sum of its odd digits.

0, 0, 4, 0, 8, 0, 12, 0, 16, 0, 9, 9, 13, 9, 17, 9, 21, 9, 25, 9, 22, 22, 26, 22, 30, 22, 34, 22, 38, 22, 27, 27, 31, 27, 35, 27, 39, 27, 43, 27, 44, 44, 48, 44, 52, 44, 56, 44, 60, 44, 45, 45, 49, 45, 53, 45, 57, 45, 61, 45, 66, 66, 70, 66, 74, 66, 78, 66, 82, 66, 63

Offset

0,3

Comments

A036301 lists fixed points of this map, the first nonzero one being 112. It is also a subsequence of A124177 (and A124176) which lists numbers which are in a cyclic orbit under iterations of this map.

Links

Table of n, a(n) for n=0..70.

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

Cf. A304439 (variant: + even - odd digits), A071650 (odd - even digits), A071648, A071649, A036301 (fixed points), A124177, A124176.

Sequence in context: A070802 A114401 A378617 * A073467 A288096 A021249

Adjacent sequences: A304437 A304438 A304439 * A304441 A304442 A304443

Keyword

nonn,base

Author

M. F. Hasler, May 18 2018

Status

approved