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 A231679 #13 Feb 28 2023 08:07:00
%S A231679 0,1,17,98,354,979,2275,2276,2292,2373,2629,3254,4550,6951,6967,7048,
%T A231679 7304,7929,9225,11626,15722,15803,16059,16684,17980,20381,24477,31038,
%U A231679 31294,31919,33215,35616,39712,46273,56273,56898,58194,60595,64691,71252,81252,95893,97189,99590,103686,110247,120247,134888,155624,155625,155641,155722,155978,156603,157899,160300
%N A231679 a(n) = Sum_{i=0..n} digsum_7(i)^4, where digsum_7(i) = A053828(i).
%H A231679 Harvey P. Dale, <a href="/A231679/b231679.txt">Table of n, a(n) for n = 0..1000</a>
%H A231679 Jean Coquet, <a href="https://doi.org/10.1016/0022-314X(86)90067-3">Power sums of digital sums</a>, J. Number Theory 22 (1986), no. 2, 161-176.
%H A231679 P. J. Grabner, P. Kirschenhofer, H. Prodinger, R. F. Tichy, <a href="http://math.sun.ac.za/~hproding/abstract/abs_80.htm">On the moments of the sum-of-digits function</a>, <a href="http://math.sun.ac.za/~hproding/pdffiles/st_andrews.pdf">PDF</a>, Applications of Fibonacci numbers, Vol. 5 (St. Andrews, 1992), 263-271, Kluwer Acad. Publ., Dordrecht, 1993.
%H A231679 J.-L. Mauclaire, Leo Murata, <a href="https://dx.doi.org/10.3792/pjaa.59.274">On q-additive functions. I</a>, Proc. Japan Acad. Ser. A Math. Sci. 59 (1983), no. 6, 274-276.
%H A231679 J.-L. Mauclaire, Leo Murata, <a href="https://dx.doi.org/10.3792/pjaa.59.441">On q-additive functions. II</a>, Proc. Japan Acad. Ser. A Math. Sci. 59 (1983), no. 9, 441-444.
%H A231679 J. R. Trollope, <a href="http://www.jstor.org/stable/2687954">An explicit expression for binary digital sums</a>, Math. Mag. 41 1968 21-25.
%e A231679 a(9): we write 0 though 9 in base 7: 0, 1, 2, ...,6, 10, 11, 12; take sums of those digits: 0, 1, 2, ..., 6, 1, 2, 3; raise them to 4th power: 0, 1, 16, ..., 1296, 1, 16, 81; total is 2373 = a(9). - _N. J. A. Sloane_, Feb 27 2023
%t A231679 Accumulate[Table[Total[IntegerDigits[n,7]]^4,{n,0,60}]] (* _Harvey P. Dale_, Feb 28 2023 *)
%o A231679 (PARI) a(n) = sum(i=0, n, sumdigits(i, 7)^4);
%Y A231679 Cf. A053828, A231676, A231677, A231678.
%K A231679 nonn,base
%O A231679 0,3
%A A231679 _N. J. A. Sloane_, Nov 13 2013