The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A341305 Fourier coefficients of the modular form (1/28)*(E_6(t)+27*E_6(3*t)). 5
 1, -18, -594, -4878, -19026, -56268, -160974, -302544, -608850, -1185858, -1856844, -2898936, -5156046, -6683292, -9983952, -15248628, -19483218, -25557444, -39133314, -44569800, -59475276, -81989424, -95664888, -115854192, -164998350, -175837518, -220548636, -288163998, -319789008, -369200700 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Table of n, a(n) for n=0..29. Masao Koike, Modular forms on non-compact arithmetic triangle groups, 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. MAPLE A341305 := proc(n) local a; a := A013973(n); if modp(n, 3) = 0 then a := a+27*A013973(n/3) ; end if; %/28 ; end proc: seq(A341305(n), n=0..10) ; # R. J. Mathar, Feb 22 2021 MATHEMATICA A013973[n_] := If[n == 0, 1, -504 DivisorSigma[5, n]]; A341305[n_] := Module[{a = A013973[n]}, If[Mod[n, 3] == 0, a = a + 27 A013973[n/3]]; a/28]; Table[A341305[n], {n, 0, 29}] (* Jean-François Alcover, Apr 30 2023, after R. J. Mathar *) CROSSREFS Cf. A013973. Sequence in context: A177098 A133401 A211708 * A253826 A061079 A180822 Adjacent sequences: A341302 A341303 A341304 * A341306 A341307 A341308 KEYWORD sign AUTHOR N. J. A. Sloane, Feb 13 2021 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 18 23:43 EDT 2024. Contains 372666 sequences. (Running on oeis4.)