A175457 (Digit sum of 6^n) mod n.

0, 1, 0, 2, 2, 3, 1, 4, 0, 6, 1, 9, 10, 12, 3, 6, 4, 0, 6, 12, 18, 19, 3, 18, 15, 21, 18, 6, 19, 27, 6, 30, 27, 33, 30, 18, 24, 21, 6, 11, 3, 27, 24, 21, 27, 42, 21, 9, 15, 21, 12, 15, 4, 9, 52, 50, 27, 55, 48, 3, 24, 39, 36, 60, 10, 27, 33, 3, 36, 42, 66, 54, 33, 57, 63, 51, 75, 36, 51, 39, 45, 60, 1, 27, 15, 21, 27, 15, 48, 0, 69, 84, 27, 51, 39, 54, 94, 66, 45, 42

Offset: 1

Author

N. J. A. Sloane, Dec 03 2010

Keywords

• nonn
• base

Crossrefs

Cf. A000400, A066002, A067864.

Programs

Mathematica

Table[Mod[Total[IntegerDigits[6^n]],n],{n,120}] (* Harvey P. Dale, May 24 2016 *)

Extensions

Corrected by N. J. A. Sloane, May 23 2016 at the suggestion of Harvey P. Dale.