A014841 Sum modulo the base of all the digits of n in every base from 2 to n-1.

0, 3, 2, 7, 6, 13, 13, 18, 19, 31, 24, 37, 40, 48, 48, 65, 59, 79, 76, 85, 93, 117, 105, 121, 132, 148, 143, 176, 163, 193, 191, 208, 226, 250, 225, 262, 277, 302, 290, 332, 320, 359, 363, 376, 394, 444, 419, 455, 462, 491, 495, 551, 540, 577, 564, 601, 625

Offset

3,2

Links

Stefano Spezia, Table of n, a(n) for n = 3..10000

Mathematica

Table[Sum[Mod[Total[IntegerDigits[n, i]], i], {i, 2, n-1}], {n, 3, 59}] (* Stefano Spezia, Sep 06 2022 *)

Prog

(PARI) a(n) = sum(b=2, n-1, sumdigits(n, b) % b); \\ Michel Marcus, Sep 06 2022
(Python)
from sympy.ntheory import digits
def a(n): return sum(sum(digits(n, b)[1:])%b for b in range(2, n))
print([a(n) for n in range(3, 60)]) # Michael S. Branicky, Sep 06 2022

Crossrefs

Cf. A014836, A014837, A014838, A014839, A014840, A014842, A014843.

Sequence in context: A323635 A125718 A268821 * A056476 A056481 A366276

Adjacent sequences: A014838 A014839 A014840 * A014842 A014843 A014844

Keyword

nonn,base

Author

Olivier Gérard

Status

approved