login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064053 Auxiliary sequence gamma(n) used to compute coefficients in series expansion of the mock theta function f(q) via A(n) = Sum_{r=0..n} p(r)*gamma(n-r), with p(r) the partition function A000041. 4

%I #42 Sep 24 2022 12:31:57

%S 1,0,-4,4,-4,4,-4,8,-4,0,-4,8,-4,0,-4,4,-4,0,0,8,-4,-4,-4,8,0,0,0,4,

%T -4,0,-4,8,-4,-4,0,8,0,0,-8,4,-8,0,4,8,-4,0,-8,8,0,0,-4,4,-4,0,-4,12,

%U -4,0,0,8,-4,0,-8,0,-4,4,4,8,-4,0,-12,8,0,0,0,4,-4,-4,-4,8,-8,0,0,8,4,4,-8,0,-4,0,0,4,-4,0,-8,12,0,0,4,0,-4,0,-4

%N Auxiliary sequence gamma(n) used to compute coefficients in series expansion of the mock theta function f(q) via A(n) = Sum_{r=0..n} p(r)*gamma(n-r), with p(r) the partition function A000041.

%C See Dragonette for the definition of f(q) and A(n). - _N. J. A. Sloane_, Sep 24 2022

%D G. E. Andrews, The theory of partitions, Cambridge University Press, Cambridge, 1998, page 82, Example 5. MR1634067 (99c:11126). [The Gamma function used by Andrews is the classical Gamma function, which is different from the gamma(n) of this sequence. - _N. J. A. Sloane_, Sep 24 2022]

%H G. C. Greubel, <a href="/A064053/b064053.txt">Table of n, a(n) for n = 0..5000</a>

%H L. A. Dragonette, <a href="http://dx.doi.org/10.1090/S0002-9947-1952-0049927-8">Some Asymptotic Formulae for the Mock Theta Series of Ramanujan</a>, Trans. Amer. Math. Soc., 72 (1952), 474-500. See page 496.

%H L. A. Dragonette, <a href="/A064053/a064053.png">Some Asymptotic Formulae for the Mock Theta Series of Ramanujan</a>, Trans. Amer. Math. Soc., 72 (1952), 474-500. Enlargement of a portion of page 496 in order to show correct spelling of gamma(n).

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MockThetaFunction.html">Mock Theta Function.</a>

%F G.f.: 1 + 4 * Sum_{k>0} (-1)^k * x^(k*(3*k + 1)/2) / (1 + x^k). - _Michael Somos_, Jun 19 2003

%F Convolution of this sequence and A000041 is A000025. - _Michael Somos_, Jun 19 2003

%F a(n) = 4 * A096661(n) unless n=0.

%e G.f. = 1 - 4*x^2 + 4*x^3 - 4*x^4 + 4*x^5 - 4*x^6 + 8*x^7 - 4*x^8 - 4*x^10 + 8*x^11 - 4*x^12 - ...

%t a[ n_]:= SeriesCoefficient[1 +4 *Sum[(-1)^k*x^(k*(3*k+1)/2)/(1+x^k), {k, Quotient[Sqrt[1 +24*n] - 1, 6]}], {x, 0, n}]; (* _Michael Somos_, Apr 08 2015 *)

%o (PARI) {a(n) = if( n<1, n==0, 4 * polcoeff( sum(k=1, (sqrtint(24*n + 1) - 1) \ 6, (-1)^k * x^((3*k^2 + k)/2) / (1 + x^k), x * O(x^n)), n))}; /* _Michael Somos_, Mar 13 2006 */

%Y Cf. A000025, A000039, A000041, A000199, A096661.

%K sign

%O 0,3

%A _Eric W. Weisstein_, Aug 28 2001

%E Entry revised by _Michael Somos_, Mar 13 2006

%E Deleted edit that tried to change gamma(n) to Gamma(n), and restored original definition. - _N. J. A. Sloane_, Sep 24 2022

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 15:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)