A175512 (Digit sum of 7^n) mod n.

0, 1, 1, 3, 2, 4, 4, 7, 1, 3, 5, 1, 0, 2, 4, 4, 7, 1, 3, 16, 19, 9, 16, 1, 22, 8, 10, 21, 5, 28, 22, 7, 28, 6, 17, 28, 4, 16, 19, 22, 25, 10, 40, 43, 28, 3, 34, 40, 31, 34, 13, 40, 8, 1, 49, 43, 10, 9, 34, 19, 22, 8, 19, 40, 52, 64, 0, 66, 37, 49, 52, 55, 58, 70, 37, 49, 11, 64, 6, 25, 28, 67, 43, 55, 40, 20, 64, 13, 8, 28, 49, 34, 82, 0, 79, 82, 85, 61, 73, 67

Offset

1,4

Links

Table of n, a(n) for n=1..100.

Mathematica

Table[Mod[Plus@@IntegerDigits[7^n], n], {n, 150}] (* Harvey P. Dale, Dec 16 2010 *)

Crossrefs

Cf. A000420, A066003, A067863; A000079, A001370, A175434, A175169.

Sequence in context: A345082 A047993 A033177 * A240829 A284013 A367219

Adjacent sequences: A175509 A175510 A175511 * A175513 A175514 A175515

Keyword

base,nonn

Author

N. J. A. Sloane, Dec 03 2010

Status

approved