The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A163130 A trisection of A163129. 4
 1, 30, 441, 4431, 35094, 235053, 1386027, 7384578, 36192519, 165311094, 710631279, 2897149824, 11270295093, 42043460145, 151025654781, 524199355128, 1763256696537, 5762466306432, 18337081016448, 56926806819666 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS A163129 is defined by the g.f.: A(q) = exp( Sum_{n>=1} sigma(n) * 3*A038500(n) * q^n/n ), where A038500(n) = highest power of 3 dividing n. Trisections are related by: A(q) = T_0(q) + T_1(q) + T_2(q) where 3*T_0(q)/T_1(q) = 3*T_1(q)/T_2(q) = T9B(q), the g.f. of A058091, which is the McKay-Thompson series of class 9B for Monster. LINKS G. C. Greubel, Table of n, a(n) for n = 0..1000 EXAMPLE G.f.: T_0(q) = 1 + 30*q^3 + 441*q^6 + 4431*q^9 + 35094*q^12 + ... MATHEMATICA eta[q_] := q^(1/24)*QPochhammer[q]; nmax = 150; a[n_]:=SeriesCoefficient[ Series[Exp[Sum[DivisorSigma[1, k]*3^(IntegerExponent[k, 3] + 1)*q^k/k, {k, 1, 3*nmax + 1}]], {q, 0, nmax}], 3*n]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, Jul 03 2018 *) PROG (PARI) {a(n)=local(L=sum(m=1, 3*n, 3*sigma(m)*3^valuation(m, 3)*x^m/m)+x*O(x^(3*n))); polcoeff(exp(L), 3*n)} CROSSREFS Cf. A163129, A163131 (T_1), A163132 (T_2), A058091. Sequence in context: A022625 A125465 A215193 * A280856 A281602 A307917 Adjacent sequences:  A163127 A163128 A163129 * A163131 A163132 A163133 KEYWORD nonn AUTHOR Paul D. Hanna, Jul 21 2009 EXTENSIONS Comment corrected by Paul D. Hanna, Jul 24 2009 STATUS approved

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

Last modified November 29 18:41 EST 2021. Contains 349416 sequences. (Running on oeis4.)