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,4

Links

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

Mathematica

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

Crossrefs

Cf. A001022, A175527, A175525.

Sequence in context: A260615 A293298 A079134 * A163940 A112340 A356264

Adjacent sequences: A175525 A175526 A175527 * A175529 A175530 A175531

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 03 2010

Status

approved