A175528 (Digit sum of 13^n) mod n.

0, 0, 1, 2, 0, 1, 5, 2, 1, 7, 8, 7, 6, 13, 13, 5, 3, 1, 9, 15, 7, 11, 14, 13, 21, 3, 10, 9, 17, 13, 29, 9, 16, 23, 29, 28, 27, 26, 4, 33, 9, 16, 23, 37, 10, 17, 6, 16, 2, 32, 49, 32, 29, 46, 17, 44, 43, 11, 50, 58, 32, 56, 10, 45, 33, 61, 60, 18, 67, 66, 47, 1, 17, 15, 22, 69, 18, 61, 5, 11, 73, 63, 42, 40, 29, 18, 7, 57, 12, 46, 53, 53, 49, 11, 18, 40, 84, 39, 37, 35

Offset: 1

Author

N. J. A. Sloane, Dec 03 2010

Keywords

• nonn
• base

Links

• N. J. A. Sloane, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001022, A175527, A175525.

Programs

Mathematica

Array[Mod[Total[IntegerDigits[13^#]],#]&, 1000]