login
A116987
A variant of A014843 (see Mathematica code).
2
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.
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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, based on correspondence from Olivier Gérard, Mar 15 2006
STATUS
approved