A116987 A variant of A014843 (see Mathematica code).

2, 2, 2, 3, 1, 7, 2, 4, 1, 9, 6, 9, 14, 8, 5, 0, 14, 11, 19, 3, 20, 7, 18, 25, 5, 2, 24, 12, 5, 27, 9, 18, 0, 8, 0, 10, 26, 12, 3, 30, 21, 19, 24, 37, 27, 39, 17, 14, 36, 35, 24, 3, 32, 17, 42, 1, 47, 56, 44, 0, 11, 49, 21, 2, 55, 55, 17, 5, 61, 69, 55, 3, 14, 14, 59, 38, 22, 62

Offset: 3

Author

N. J. A. Sloane, based on correspondence from Olivier Gérard, Mar 15 2006

Keywords

• nonn
• base

Comments

Apparently the present definition of A014843 does not give the terms shown there. The present sequence is a failed attempt to reproduce them.

Programs

Mathematica

Table[ Mod[Plus@@Table[Mod[Plus@@IntegerDigits[n,k],k],{k,2,n-1}],n],{n,3,100}]