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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, based on correspondence from Olivier Gérard, Mar 15 2006
STATUS
approved