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,1

Comments

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

Links

Table of n, a(n) for n=3..80.

Mathematica

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

Crossrefs

Sequence in context: A248808 A233206 A014843 * A219838 A159800 A273021

Adjacent sequences: A116984 A116985 A116986 * A116988 A116989 A116990

Keyword

nonn,base

Author

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

Status

approved