Table[Mod[Total[IntegerDigits[5^n]], n], {n, 100}] (* From _Harvey P. Dale, _, Jan 05 2012 *)
Table[Mod[Total[IntegerDigits[5^n]], n], {n, 100}] (* From _Harvey P. Dale, _, Jan 05 2012 *)
_N. J. A. Sloane (njas(AT)research.att.com), _, Dec 03 2010
editing
approved
Table[Mod[Total[IntegerDigits[5^n]], n], {n, 100}] (* From Harvey P. Dale, Jan 05 2012 *)
approved
editing
proposed
approved
allocated for N. J. A. Sloane
(Digit sum of 5^n) mod n.
0, 1, 2, 1, 1, 1, 2, 1, 8, 0, 5, 4, 10, 6, 14, 10, 5, 10, 2, 1, 20, 1, 5, 10, 2, 1, 8, 1, 25, 1, 11, 10, 23, 1, 22, 1, 30, 10, 17, 10, 14, 19, 20, 19, 26, 20, 34, 1, 11, 1, 50, 26, 13, 19, 2, 28, 44, 37, 14, 19, 11, 1, 44, 38, 34, 49, 51, 60, 59, 53, 58, 1, 2, 19, 44, 19, 14, 70, 63, 10, 71, 1, 41, 28, 2, 10, 17, 10, 5, 46, 38, 10, 17, 37, 32, 37, 2, 72, 71, 83
1,3
allocated
nonn,base
N. J. A. Sloane (njas(AT)research.att.com), Dec 03 2010
approved
proposed
allocated for N. J. A. Sloane
recycled
allocated
recycled
approved