cp's OEIS Frontend

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.

A341306 Fourier coefficients of the modular form F_{3A}^8.

This page as a plain text file.
%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