A167831 Largest m<=n such that no carry occurs when adding m to n in decimal arithmetic.

0, 1, 2, 3, 4, 4, 3, 2, 1, 0, 10, 11, 12, 13, 14, 14, 13, 12, 11, 10, 20, 21, 22, 23, 24, 24, 23, 22, 21, 20, 30, 31, 32, 33, 34, 34, 33, 32, 31, 30, 40, 41, 42, 43, 44, 44, 43, 42, 41, 40, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27

Offset: 0

Author

Reinhard Zumkeller, Nov 14 2009

Keywords

• base
• nonn
• look

Comments

A167832(n) = a(n) + n.

Links

• R. Zumkeller, Table of n, a(n) for n = 0..9999

Crossrefs

Cf. A167877, A035327 for the ternary and binary cases.

Cf. A031298.

Programs

Haskell

a167831 n = head [x | let ds = a031298_row n, x <- [n, n-1 ..],
                      all (< 10) $ zipWith (+) ds (a031298_row x)]
-- Reinhard Zumkeller, Mar 15 2014