This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A014841 #20 Sep 07 2022 04:09:01 %S A014841 0,3,2,7,6,13,13,18,19,31,24,37,40,48,48,65,59,79,76,85,93,117,105, %T A014841 121,132,148,143,176,163,193,191,208,226,250,225,262,277,302,290,332, %U A014841 320,359,363,376,394,444,419,455,462,491,495,551,540,577,564,601,625 %N A014841 Sum modulo the base of all the digits of n in every base from 2 to n-1. %H A014841 Stefano Spezia, <a href="/A014841/b014841.txt">Table of n, a(n) for n = 3..10000</a> %t A014841 Table[Sum[Mod[Total[IntegerDigits[n,i]], i], {i,2,n-1}], {n,3,59}] (* _Stefano Spezia_, Sep 06 2022 *) %o A014841 (PARI) a(n) = sum(b=2, n-1, sumdigits(n, b) % b); \\ _Michel Marcus_, Sep 06 2022 %o A014841 (Python) %o A014841 from sympy.ntheory import digits %o A014841 def a(n): return sum(sum(digits(n, b)[1:])%b for b in range(2, n)) %o A014841 print([a(n) for n in range(3, 60)]) # _Michael S. Branicky_, Sep 06 2022 %Y A014841 Cf. A014836, A014837, A014838, A014839, A014840, A014842, A014843. %K A014841 nonn,base %O A014841 3,2 %A A014841 _Olivier Gérard_