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 A341306 #18 Apr 16 2023 12:34:22 %S A341306 1,48,1008,12144,92784,473760,1706544,4818048,12317040,29078832, %T A341306 59093280,114031296,219429552,367093536,621859968,1037221920, %U A341306 1583864688,2403178848,3747390192,5232056640,7550261280,10938344064,14714951616,19930041216,28075097520,35731471440 %N A341306 Fourier coefficients of the modular form F_{3A}^8. %H A341306 Masao Koike, <a href="https://oeis.org/A004016/a004016.pdf">Modular forms on non-compact arithmetic triangle groups</a>, Unpublished manuscript [Extensively annotated with OEIS A-numbers by N. J. A. Sloane, Feb 14 2021. I wrote 2005 on the first page but the internal evidence suggests 1997.] See page 29. %p A341306 A341306 := proc(n) %p A341306 add( A004016(i)*x^i,i=0..n) ; %p A341306 coeftayl(%^8,x=0,n) ; %p A341306 end proc: %p A341306 seq(A341306(n),n=0..25) ; # _R. J. Mathar_, Feb 22 2021 %t A341306 A004016[n_] := If[n == 0, 1, 6 Sum[KroneckerSymbol[d, 3], {d, Divisors[n]}]]; %t A341306 a[n_] := SeriesCoefficient[Sum[A004016[i]*x^i, {i, 0, n}]^8, {x, 0, n}]; %t A341306 Table[a[n], {n, 0, 25}] (* _Jean-François Alcover_, Apr 16 2023, after _R. J. Mathar_ *) %Y A341306 Cf. A008655. %K A341306 nonn %O A341306 0,2 %A A341306 _N. J. A. Sloane_, Feb 14 2021 %E A341306 Terms a(5) and beyond from _R. J. Mathar_, Feb 22 2021