A093150 Absolute value of difference between (sum of digits of n if n odd, otherwise sum of digits of 2n) and (sum of digits of n if n even, otherwise sum of digits of 2n).

0, 1, 2, 3, 4, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 1, 2, 3, 4, 4, 3, 2, 1, 0, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5

Offset

0,3

Comments

Zeros occur at 9*j.

First occurrence of k: 0,1,2,3,4,14,24,34,44,144,244,344,444,1444,2444,3444,4444,14444,24444,34444,44444,144444,244444,344444,444444, etc.

Links

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

Formula

a(n) = | A092383(n) - A092384(n) |.

Mathematica

f[n_] := Plus @@ IntegerDigits[ If[ OddQ[n], n, 2n]]; g[n_] := Plus @@ IntegerDigits[ If[ EvenQ[n], n, 2n]]; Table[ Abs[ f[n] - g[n]], {n, 0, 104}]

Crossrefs

Cf. A092383, A092384.

Sequence in context: A066078 A058339 A133852 * A301297 A167831 A090281

Adjacent sequences: A093147 A093148 A093149 * A093151 A093152 A093153

Keyword

base,easy,nonn

Author

Robert G. Wilson v, Mar 24 2004

Status

approved