A010816 -id:A010816 - cp's OEIS frontend

A000594 Ramanujan's tau function (or Ramanujan numbers, or tau numbers).

1, -24, 252, -1472, 4830, -6048, -16744, 84480, -113643, -115920, 534612, -370944, -577738, 401856, 1217160, 987136, -6905934, 2727432, 10661420, -7109760, -4219488, -12830688, 18643272, 21288960, -25499225, 13865712, -73279080, 24647168

Offset: 1

N. J. A. Sloane

Coefficients of the cusp form of weight 12 for the full modular group.
It is conjectured that tau(n) is never zero (this has been verified for n < 816212624008487344127999, see the Derickx, van Hoeij, Zeng reference).
M. J. Hopkins mentions that the only known primes p for which tau(p) == 1 (mod p) are 11, 23 and 691, that it is an open problem to decide if there are infinitely many such p and that no others are known below 35000. Simon Plouffe has now searched up to tau(314747) and found no other examples. - N. J. A. Sloane, Mar 25 2007
Number 1 of the 74 eta-quotients listed in Table I of Martin (1996).
With Dedekind's eta function and the discriminant Delta one has eta(z)^24 = Delta(z)/(2*Pi)^12 = Sum_{m >= 1} tau(m)*q^m, with q = exp(2*Pi*i*z), and z in the complex upper half plane, where i is the imaginary unit. Delta is the eigenfunction of the Hecke operator T_n (n >= 1) with eigenvalue tau(n): T_n Delta = tau(n) Delta. From this the formula for tau(m)*tau(n) given below in the formula section follows. See, e.g., the Koecher-Krieg reference, Lemma and Satz, p. 212. Or the Apostol reference, eq. (3) on p. 114 and the first part of section 6.13 on p. 131. - Wolfdieter Lang, Jan 26 2016
For the functional equation satisfied by the Dirichlet series F(s), Re(s) > 7, of a(n) see the Hardy reference, p. 173, (10.9.4). It is (2*Pi)^(-s) * Gamma(s) * F(s) = (2*Pi)^(s-12) * Gamma(12-s) * F(12-s). This is attributed to J. R. Wilton, 1929, on p. 185. - Wolfdieter Lang, Feb 08 2017
Conjecture: |a(n)| with n > 1 can never be a perfect power. This has been verified for n up to 10^6. - Zhi-Wei Sun, Dec 18 2024
Conjecture: The numbers |a(n)| (n = 1,2,3,...) are distinct. This has been verified for the first 10^6 terms. - Zhi-Wei Sun, Dec 21 2024
Conjecture: |a(n)| > 2*n^4 for all n > 2. This has been verified for n = 3..10^6. - Zhi-Wei Sun, Dec 25 2024
Conjecture: a(m)^2 + a(n)^2 can never be a perfect power. This implies Lehmer's conjecture that a(n) is never zero. We have verified that there is no perfect power among a(m)^2 + a(n)^2 with m,n <= 1000 . - Zhi-Wei Sun, Dec 28 2024
Conjecture: The equation |a(m)a(n)| = x^k with m < n, k > 1 and x >= 0 has no solution. This has been verified for m < n <= 5000. - Zhi-Wei Sun, Dec 29 2024
For some conjectures motivated by additive combinatorics, one may consult the link to Question 485138 at MathOverflow. - Zhi-Wei Sun, Jan 25 2025

			G.f. = q - 24*q^2 + 252*q^3 - 1472*q^4 + 4830*q^5 - 6048*q^6 - 16744*q^7 + 84480*q^8 - 113643*q^9 + ...
35328 = (-24)*(-1472) = a(2)*a(4) = a(2*4) + 2^11*a(2*4/4) = 84480 + 2048*(-24) = 35328. See a comment on T_n Delta = tau(n) Delta above. - _Wolfdieter Lang_, Jan 21 2016

Tom M. Apostol, Modular functions and Dirichlet series in number theory, second Edition, Springer, 1990, pp. 114, 131.
Graham Everest, Alf van der Poorten, Igor Shparlinski, and Thomas Ward, Recurrence Sequences, Amer. Math. Soc., 2003; see esp. p. 255.
Hershel M. Farkas and Irwin Kra, Theta constants, Riemann surfaces and the modular group, AMS 2001; see p. 298.
Nathan J. Fine, Basic Hypergeometric Series and Applications, Amer. Math. Soc., 1988; p. 77, Eq. (32.2).
G. H. Hardy, Ramanujan: twelve lectures on subjects suggested by his life and work, AMS Chelsea Publishing, Providence, Rhode Island, 2002, lecture X, pp. 161-185.
Bruce Jordan and Blair Kelly (blair.kelly(AT)att.net), The vanishing of the Ramanujan tau function, preprint, 2001.
Max Koecher and Aloys Krieg, Elliptische Funktionen und Modulformen, 2. Auflage, Springer, 2007, pp. 210 - 212.
Yu. I. Manin, Mathematics and Physics, Birkhäuser, Boston, 1981.
Henry McKean and Victor Moll, Elliptic Curves, Camb. Univ. Press, 1999, p. 139.
M. Ram Murty, The Ramanujan tau-function, pp. 269-288 of G. E. Andrews et al., editors, Ramanujan Revisited. Academic Press, NY, 1988.
Srinivasa Ramanujan, On Certain Arithmetical Functions. Collected Papers of Srinivasa Ramanujan, p. 153, Ed. G. H. Hardy et al., AMS Chelsea 2000.
Srinivasa Ramanujan, On Certain Arithmetical Functions. Ramanujan's Papers, p. 196, Ed. B. J. Venkatachala et al., Prism Books, Bangalore 2000.
Jean-Pierre Serre, A course in Arithmetic, Springer-Verlag, 1973, see p. 98.
Joseph H. Silverman, Advanced Topics in the Arithmetic of Elliptic Curves, Springer, 1994, see p. 482.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
H. P. F. Swinnerton-Dyer, Congruence properties of tau(n), pp. 289-311 of G. E. Andrews et al., editors, Ramanujan Revisited. Academic Press, NY, 1988.
Don Zagier, Introduction to Modular Forms, Chapter 4 in M. Waldschmidt et al., editors, From Number Theory to Physics, Springer-Verlag, 1992.
Don Zagier, "Elliptic modular forms and their applications", in: The 1-2-3 of modular forms, Springer Berlin Heidelberg, 2008, pp. 1-103.

Simon Plouffe, Table of n, a(n) for n = 1..16090
Jennifer S. Balakrishnan, William Craig, and Ken Ono, Variations of Lehmer's Conjecture for Ramanujan's tau-function, arXiv:2005.10345 [math.NT], 2020.
Jennifer S. Balakrishnan, Ken Ono, and Wei-Lun Tsai, Even values of Ramanujan's tau-function, arXiv:2102.00111 [math.NT], 2021.
Bruce C. Berndt and Ken Ono, Ramanujan's unpublished manuscript on the partition and tau functions with proofs and commentary.
Bruce C. Berndt and Ken Ono, Ramanujan's unpublished manuscript on the partition and tau functions with proofs and commentary, Séminaire Lotharingien de Combinatoire, B42c (1999), 63 pp.
Bruce C. Berndt and Pieter Moree, Sums of two squares and the tau-function: Ramanujan's trail, arXiv:2409.03428 [math.NT], 2024.
Matthew Boylan, Exceptional congruences for the coefficients of certain eta-product newforms, J. Number Theory, Vol. 98, No. 2 (2003), 377-389. MR1955423 (2003k:11071).
François Brunault, La fonction Tau de Ramanujan. [Wayback Machine link]
Denis Xavier Charles, Computing The Ramanujan Tau Function.
Benoit Cloitre, On the fractal behavior of primes, 2011.
John Cremona, Home page.
Maarten Derickx, Mark van Hoeij, and Jinxiang Zeng, Computing Galois representations and equations for modular curves X_H(l), arXiv:1312.6819 [math.NT], 2013-2014.
Bas Edixhoven, Jean-Marc Couveignes, Robin de Jong, Franz Merkl, and Johan Bosman, Computing the coefficients of a modular form, arXiv:math/0605244 [math.NT], 2006-2010.
John A. Ewell, Ramanujan's Tau Function, Proc. Amer. Math. Soc. 128 (2000), 723-726.
John A. Ewell, Ramanujan's Tau Function.
Steven R. Finch, Modular forms on SL_2(Z), December 28, 2005. [Cached copy, with permission of the author]
Luis H. Gallardo, On some formulae for Ramanujan's tau function, Rev. Colomb. Matem. 44 (2010) 103-112.
M. Z. Garaev, V. C. Garcia, and S. V. Konyagin, Waring problem with the Ramanujan tau function, Izvestiya: Mathematics, Vol. 72, No 1 (2008), pp. 35-46; arXiv preprint, arXiv:math/0607169 [math.NT], 2006.
Frank Garvan and Michael J. Schlosser, Combinatorial interpretations of Ramanujan's tau function, Discrete Mathematics, Vol. 341, No. 10 (2018), pp. 2831-2840; arXiv preprint, arXiv:1606.08037 [math.CO], 2016.
Hansraj Gupta, The Vanishing of Ramanujan's Function(n), Current Science, 17 (1948), p. 180. [Wayback Machine link]
James Lee Hafner and Jeffrey Stopple, A Heat Kernel Associated to Ramanujan's Tau Function, The Ramanujan Journal, Vol. 4, No. 2 (2000), pp. 123-128.
Yang-Hui He and John McKay, Moonshine and the Meaning of Life, in: M. Bhargava et al., Finite Simple Groups: Thirty Years of the Atlas and Beyond, Contemporary Mathematics, Vol. 694, American Mathematical Society, 2017; arXiv preprint, arXiv:1408.2083 [math.NT], 2014.
Michael J. Hopkins, Algebraic topology and modular forms, Proc. Internat. Congress Math., Beijing 2002, Vol. I, pp. 291-317; arXiv preprint, arXiv:math/0212397 [math.AT], 2002.
Masanobu Kaneko and Don Zagier, Supersingular j-invariants, hypergeometric series and Atkin's orthogonal polynomials, pp. 97-126 of D. A. Buell and J. T. Teitelbaum, eds., Computational Perspectives on Number Theory, Amer. Math. Soc., 1998
Jon Keating and Brady Haran, The Key to the Riemann Hypothesis, Numberphile video (2016).
Jerry B. Keiper, Ramanujan's Tau-Dirichlet Series [Dead link?]
Martin Klazar, What is an answer? — remarks, results and problems on PIO formulas in combinatorial enumeration, part I, arXiv:1808.08449 [math.CO], 2018.
N. Laptyeva and V. K. Murty, Fourier coefficients of forms of CM-type, Indian Journal of Pure and Applied Mathematics, Volume 45, Issue 5 (October 2014), pp. 747-758.
D. H. Lehmer, The Vanishing of Ramanujan's Function tau(n), Duke Mathematical Journal, 14 (1947), pp. 429-433.
D. H. Lehmer, The Vanishing of Ramanujan's Function tau(n), Duke Mathematical Journal, 14 (1947), pp. 429-433. [Annotated scanned copy]
D. H. Lehmer, Tables of Ramanujan's function tau(n), Math. Comp., 24 (1970), 495-496.
LMFDB, Newform orbit 1.12.a.a
Florian Luca and Igor E. Shparlinski, Arithmetic properties of the Ramanujan function, Proceedings of the Indian Academy of Sciences-Mathematical Sciences, Vol. 116. No. 1 (2006), pp. 1-8; arXiv preprint, arXiv:math/0607591 [math.NT], 2006.
Nik Lygeros and Olivier Rozier, A new solution to the equation tau(rho) == 0 (mod p), J. Int. Seq. 13 (2010), Article 10.7.4.
Yves Martin, Multiplicative eta-quotients, Trans. Amer. Math. Soc., Vol. 348, No. 12 (1996), 4825-4856, see page 4852 Table I.
Yuri Matiyasevich, Computational rediscovery of Ramanujan's tau numbers, Integers (2018) 18A, Article #A14.
Keith Matthews, Computing Ramanujan's tau function.
Stephen C. Milne, New infinite families of exact sums of squares formulas, Jacobi elliptic functions, and Ramanujan's tau function, Proc. Nat. Acad. Sci. USA, 93 (1996) 15004-15008.
Stephen C. Milne, Infinite families of exact sums of squares formulas, Jacobi elliptic functions, continued fractions and Schur functions, Ramanujan J., 6 (2002), 7-149.
Louis J. Mordell, On Mr. Ramanujan's empirical expansions of modular functions, Proceedings of the Cambridge Philosophical Society 19 (1917), pp. 117-124.
Pieter Moree, On some claims in Ramanujan's 'unpublished' manuscript on the partition and tau functions, arXiv:math/0201265 [math.NT], 2002.
M. Ram Murty and V. Kumar Murty, The Ramanujan tau-function, in: The mathematical legacy of Srinivasa Ramanujan (Springer, 2012), p 11-23.
M. Ram Murty, V. Kumar Murty, and T. N. Shorey, Odd values of the Ramanujan tau-function, Bulletin de la S. M. F., tome 115 (1987), p. 391-395.
Douglas Niebur, A formula for Ramanujan's tau-function, Illinois Journal of Mathematics, vol.19, no.3, pp.448-449, (1975). - _Joerg Arndt_, Sep 06 2015
Oklahoma State Mathematics Department, Ramanujan tau L-Function. [broken link]
Jon Perry, Ramanujan's Tau Function. [Wayback Machine link]
Simon Plouffe, The first 225035 terms (432 MB) [Wayback Machine link]
Simon Plouffe, Conjectures of the OEIS, as of June 20, 2018.
Srinivasa Ramanujan, Collected Papers, Table of tau(n);n=1 to 30.
Jean-Pierre Serre, An interpretation of some congruences concerning Ramanujan's tau function, Séminaire Delange-Pisot-Poitou. Théorie des nombres, tome 9, no 1 (1967-1968), exp. no 14, pp. 1-17.
Jean-Pierre Serre, An interpretation of some congruences concerning Ramanujan's Tau function, 1997.
Jean-Pierre Serre, Sur la lacunarité des puissances de eta, Glasgow Math. Journal, 27 (1985), 203-221.
N. J. A. Sloane, My favorite integer sequences, in Sequences and their Applications (Proceedings of SETA '98).
N. J. A. Sloane, My Favorite Integer Sequences, arXiv:math/0207175 [math.CO], 2002.
Michael Somos, Index to Yves Martin's list of 74 multiplicative eta-quotients and their A-numbers, 2016.
David A. Steffen, Les Coefficients de Fourier de la forme modulaire: La fonction de Ramanujan tau(n), 1998.
William A. Stein, Database.
Zhi-Wei Sun, Questions on the reciprocals of the values of the tau function, Question 484763 at MathOverflow, December 25, 2024.
Zhi-Wei Sun, Pythagorean triples and Ramanujan's tau function, Question 484936 at MathOverflow, December 28, 2024.
Zhi-Wei Sun, Additive combinatorics for Ramanujan's tau function, Question 485138 at MathOverflow, January 1, 2025.
H. P. F. Swinnerton-Dyer, On l-adic representations and congruences for coefficients of modular forms, pp. 1-55 of Modular Functions of One Variable III (Antwerp 1972), Lect. Notes Math., 350, 1973.
F. Van der Blij, The function tau (n) of S. Ramanujan (an expository lecture), Math. Student, Vol. 18, No. 3 (1950), pp. 83-99; entire issues 3 and 4.
Jan Vonk, Overconvergent modular forms and their explicit arithmetic, Bulletin of the American Mathematical Society 58.3 (2021): 313-356.
G. N. Watson, A table of Ramanujan's function tau(n), Proc. London Math. Soc., 51 (1950), 1-13.
Eric Weisstein's World of Mathematics, Tau Function.
Kenneth S. Williams, Historical remark on Ramanujan's tau function, Amer. Math. Monthly, 122 (2015), 30-35; author's copy.
Index entries for "core" sequences.
Index entries for expansions of Product_{k >= 1} (1-x^k)^m.
Index entries for sequences related to Chebyshev polynomials.

Cf. A076847 (tau(prime)), A278577 (prime powers), A037955, A027364, A037945, A037946, A037947, A008408 (Leech).
For a(n) mod N for various values of N see A046694, A098108, A126812-...
Cf. A006352, A099059, A099060, A262339, A292781.
For primes p such that tau(p) == -1 (mod 23) see A106867.
Cf. A010816, A004009. A013973.
Cf. A126832(n) = a(n) mod 5.

using Nemo
function DedekindEta(len, r)
    R, z = PolynomialRing(ZZ, "z")
    e = eta_qexp(r, len, z)
    [coeff(e, j) for j in 0:len - 1] end
RamanujanTauList(len) = DedekindEta(len, 24)
RamanujanTauList(28) |> println # Peter Luschny, Mar 09 2018

M12:=ModularForms(Gamma0(1),12); t1:=Basis(M12)[2]; PowerSeries(t1[1],100); Coefficients($1);

Basis( CuspForms( Gamma1(1), 12), 100)[1]; /* Michael Somos, May 27 2014 */

M := 50; t1 := series(x*mul((1-x^k)^24,k=1..M),x,M); A000594 := n-> coeff(t1,x,n);

CoefficientList[ Take[ Expand[ Product[ (1 - x^k)^24, {k, 1, 30} ]], 30], x] (* Or *)
(* first do *) Needs["NumberTheory`Ramanujan`"] (* then *) Table[ RamanujanTau[n], {n, 30}] (* Dean Hickerson, Jan 03 2003 *)
max = 28; g[k_] := -BernoulliB[k]/(2k) + Sum[ DivisorSigma[k - 1, n - 1]*q^(n - 1), {n, 2, max + 1}]; CoefficientList[ Series[ 8000*g[4]^3 - 147*g[6]^2, {q, 0, max}], q] // Rest (* Jean-François Alcover, Oct 10 2012, from modular forms *)
RamanujanTau[Range[40]] (* The function RamanujanTau is now part of Mathematica's core language so there is no longer any need to load NumberTheory`Ramanujan` before using it *) (* Harvey P. Dale, Oct 12 2012 *)
a[ n_] := SeriesCoefficient[ q QPochhammer[ q]^24, {q, 0, n}]; (* Michael Somos, May 27 2014 *)
a[ n_] := With[{t = Log[q] / (2 Pi I)}, SeriesCoefficient[ Series[ DedekindEta[t]^24, {q, 0, n}], {q, 0, n}]]; (* Michael Somos, May 27 2014 *)

{a(n) = if( n<1, 0, polcoeff( x * eta(x + x * O(x^n))^24, n))};

{a(n) = if( n<1, 0, polcoeff( x * (sum( i=1, (sqrtint( 8*n - 7) + 1) \ 2,(-1)^i * (2*i - 1) * x^((i^2 - i)/2), O(x^n)))^8, n))};

taup(p,e)={
    if(e==1,
        (65*sigma(p,11)+691*sigma(p,5)-691*252*sum(k=1,p-1,sigma(k,5)*sigma(p-k,5)))/756
    ,
        my(t=taup(p,1));
        sum(j=0,e\2,
            (-1)^j*binomial(e-j,e-2*j)*p^(11*j)*t^(e-2*j)
        )
    )
};
a(n)=my(f=factor(n));prod(i=1,#f[,1],taup(f[i,1],f[i,2]));
\\ Charles R Greathouse IV, Apr 22 2013

\\ compute terms individually (Douglas Niebur, Ill. J. Math., 19, 1975):
a(n) = n^4*sigma(n) - 24*sum(k=1, n-1, (35*k^4-52*k^3*n+18*k^2*n^2)*sigma(k)*sigma(n-k));
vector(33, n, a(n)) \\ Joerg Arndt, Sep 06 2015

a(n)=ramanujantau(n) \\ Charles R Greathouse IV, May 27 2016

from sympy import divisor_sigma
def A000594(n): return n**4*divisor_sigma(n)-24*((m:=n+1>>1)**2*(0 if n&1 else (m*(35*m - 52*n) + 18*n**2)*divisor_sigma(m)**2)+sum((i*(i*(i*(70*i - 140*n) + 90*n**2) - 20*n**3) + n**4)*divisor_sigma(i)*divisor_sigma(n-i) for i in range(1,m))) # Chai Wah Wu, Nov 08 2022

def s(n)
  s = 0
  (1..n).each{|i| s += i if n % i == 0}
  s
end
def A000594(n)
  ary = [1]
  a = [0] + (1..n - 1).map{|i| s(i)}
  (1..n - 1).each{|i| ary << (1..i).inject(0){|s, j| s - 24 * a[j] * ary[-j]} / i}
  ary
end
p A000594(100) # Seiichi Manyama, Mar 26 2017

def A000594(n)
  ary = [0, 1]
  (2..n).each{|i|
    s, t, u = 0, 1, 0
    (1..n).each{|j|
      t += 9 * j
      u += j
      break if i <= u
      s += (-1) ** (j % 2 + 1) * (2 * j + 1) * (i - t) * ary[-u]
    }
    ary << s / (i - 1)
  }
  ary[1..-1]
end
p A000594(100) # Seiichi Manyama, Nov 25 2017

CuspForms( Gamma1(1), 12, prec=100).0; # Michael Somos, May 28 2013

list(delta_qexp(100))[1:] # faster Peter Luschny, May 16 2016

G.f.: x * Product_{k>=1} (1 - x^k)^24 = x*A(x)^8, with the g.f. of A010816.
G.f. is a period 1 Fourier series which satisfies f(-1 / t) = (t/i)^12 f(t) where q = exp(2 Pi i t). - Michael Somos, Jul 04 2011
abs(a(n)) = O(n^(11/2 + epsilon)), abs(a(p)) <= 2 p^(11/2) if p is prime. These were conjectured by Ramanujan and proved by Deligne.
Zagier says: The proof of these formulas, if written out from scratch, has been estimated at 2000 pages; in his book Manin cites this as a probable record for the ratio: "length of proof:length of statement" in the whole of mathematics.
G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^4)) where f(u, v, w) = u*w * (u + 48*v + 4096*w) - v^3. - Michael Somos, Jul 19 2004
G.f. A(q) satisfies q * d log(A(q))/dq = A006352(q). - Michael Somos, Dec 09 2013
a(2*n) = A099060(n). a(2*n + 1) = A099059(n). - Michael Somos, Apr 17 2015
a(n) = tau(n) (with tau(0) = 0): tau(m)*tau(n) = Sum_{d| gcd(m,n)} d^11*tau(m*n/d^2), for positive integers m and n. If gcd(m,n) = 1 this gives the multiplicativity of tau. See a comment above with the Koecher-Krieg reference, p. 212, eq. (5). - Wolfdieter Lang, Jan 21 2016
Dirichlet series as product: Sum_{n >= 1} a(n)/n^s = Product_{n >= 1} 1/(1 - a(prime(n))/prime(n)^s  + prime(n)^(11-2*s)). See the Mordell link, eq. (2). - Wolfdieter Lang, May 06 2016. See also Hardy, p. 164, eqs. (10.3.1) and (10.3.8). - Wolfdieter Lang, Jan 27 2017
a(n) is multiplicative with a(prime(n)^k) = sqrt(prime(n)^(11))^k*S(k, a(n) / sqrt(prime(n)^(11))), with the Chebyshev S polynomials (A049310), for n >= 1 and k >= 2, and A076847(n) = a(prime(n)). See A076847 for alpha multiplicativity and examples. - Wolfdieter Lang, May 17 2016. See also Hardy, p. 164, eq. (10.3.6) rewritten in terms of S. - Wolfdieter Lang, Jan 27 2017
G.f. eta(z)^24 (with q = exp(2*Pi*i*z)) also (E_4(q)^3 - E_6(q)^2) / 1728. See the Hardy reference, p. 166, eq. (10.5.3), with Q = E_4 and R = E_6, given in A004009 and A013973, respectively. - Wolfdieter Lang, Jan 30 2017
a(n) (mod 5) == A126832(n).
a(1) = 1, a(n) = -(24/(n-1))*Sum_{k=1..n-1} A000203(k)*a(n-k) for n > 1. - Seiichi Manyama, Mar 26 2017
G.f.: x*exp(-24*Sum_{k>=1} x^k/(k*(1 - x^k))). - Ilya Gutkovskiy, Feb 05 2018
Euler Transform of [-24, -24, -24, -24, ...]. - Simon Plouffe, Jun 21 2018
a(n) = n^4*sigma(n)-24*Sum_{k=1..n-1} (35*k^4-52*k^3*n+18*k^2*n^2)*sigma(k)*sigma(n-k). [See Douglas Niebur link]. - Wesley Ivan Hurt, Jul 22 2025

A002107 Expansion of Product_{k>=1} (1 - x^k)^2.

Original entry on oeis.org

1, -2, -1, 2, 1, 2, -2, 0, -2, -2, 1, 0, 0, 2, 3, -2, 2, 0, 0, -2, -2, 0, 0, -2, -1, 0, 2, 2, -2, 2, 1, 2, 0, 2, -2, -2, 2, 0, -2, 0, -4, 0, 0, 0, 1, -2, 0, 0, 2, 0, 2, 2, 1, -2, 0, 2, 2, 0, 0, -2, 0, -2, 0, -2, 2, 0, -4, 0, 0, -2, -1, 2, 0, 2, 0, 0, 0, -2

Offset: 0

N. J. A. Sloane

Number of partitions of n into an even number of distinct parts minus number of partitions of n into an odd number of distinct parts, with 2 types of each part. E.g., for n=4, we consider k and k* to be different versions of k and so we have 4, 4*, 31, 31*, 3*1, 3*1*, 22*, 211*, 2*11*. The even partitions number 5 and the odd partitions number 4, so a(4)=5-4=1. - Jon Perry, Apr 04 2004
Also, number of partitions of n into parts of -2 different kinds (based upon formal analogy). - Michele Dondi (blazar(AT)lcm.mi.infn.it), Jun 29 2004
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
Number 68 of the 74 eta-quotients listed in Table I of Martin (1996).

			G.f. = 1 - 2*x - x^2 + 2*x^3 + x^4 + 2*x^5 - 2*x^6 - 2*x^8 - 2*x^9 + x^10 + ...
G.f. = q - 2*q^13 - q^25 + 2*q^37 + q^49 + 2*q^61 - 2*q^73 - 2*q^97 - 2*q^109 + ...

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Seiichi Manyama, Table of n, a(n) for n = 0..10000 (first 1001 terms from T. D. Noe)
G. E. Andrews, Advanced problems 6562, Amer. Math. Monthly 94, 1987.
M. Boylan, Exceptional congruences for the coefficients of certain eta-product newforms, J. Number Theory 98 (2003), no. 2, 377-389. MR1955423 (2003k:11071)
S. Cooper, M. D. Hirschhorn and R. Lewis, Powers of Euler's Product and Related Identities, The Ramanujan Journal, Vol. 4 (2), 137-155 (2000).
S. R. Finch, Powers of Euler's q-Series, arXiv:math/0701251 [math.NT], 2007.
J. W. L. Glaisher, On the square of Euler's series, Proc. London Math. Soc., 21 (1889), 182-194.
J. T. Joichi, Hecke-Rogers, Andrews identities; combinatorial proofs, Discrete Mathematics, Vol. 84, Issue 3, 1990, pp. 255-259.
Victor G. Kac and Dale H. Peterson, Infinite-Dimensional Lie Algebras, Theta Functions and Modular Forms, Advances in Mathematics (1984), 53. 125-264, see page 261, (5.19).
Martin Klazar, What is an answer? — remarks, results and problems on PIO formulas in combinatorial enumeration, part I, arXiv:1808.08449 [math.CO], 2018.
M. Koike, On McKay's conjecture, Nagoya Math. J., 95 (1984), 85-89.
V. Kotesovec, The integration of q-series
Y. Martin, Multiplicative eta-quotients, Trans. Amer. Math. Soc. 348 (1996), no. 12, 4825-4856, see page 4852 Table I.
Tim Silverman, Counting Cliques in Finite Distant Graphs, arXiv preprint arXiv:1612.08085 [math.CO], 2016.
Michael Somos, Index to Yves Martin's list of 74 multiplicative eta-quotients and their A-numbers
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
Index entries for expansions of Product_{k >= 1} (1-x^k)^m

Cf. A000712 (reciprocal of g.f.), A010815, A010816, A258406.

Powers of Euler's product: A000594, A000727 - A000731, A000735, A000739, A010815 - A010840.

# DedekindEta is defined in A000594.
A002107List(len) = DedekindEta(len, 2)
A002107List(78) |> println # Peter Luschny, Mar 09 2018

Basis( CuspForms( Gamma1(144), 1), 926) [1]; /* Michael Somos, May 17 2015 */

A010816 := proc (n); if frac(sqrt(8*n+1)) = 0 then (-1)^((1/2)*isqrt(8*n+1)-1/2)*isqrt(8*n+1) else 0 end if; end proc:
N := 10:
a := proc (n) option remember; if n < 0 then 0 else A010816(n) + add( (-1)^(k+1)*a(n - (1/2)*k*(3*k-1) ), k = -N..-1) + add( (-1)^(k+1)*a(n - (1/2)*k*(3*k-1) ), k = 1..N) end if; end proc:
seq(a(n), n = 0..100); # Peter Bala, Apr 06 2022

terms = 78; Clear[s]; s[n_] := s[n] = Product[(1 - x^k)^2, {k, 1, n}] // Expand // CoefficientList[#, x]& // Take[#, terms]&; s[n = 10]; s[n = 2*n]; While[s[n] != s[n - 1], n = 2*n]; A002107 = s[n] (* Jean-François Alcover, Jan 17 2013 *)
a[ n_] := SeriesCoefficient[ QPochhammer[ x]^2, {x, 0, n}]; (* Michael Somos, Jan 31 2015 *)
a[ n_] := SeriesCoefficient[ Product[ 1 - x^k, {k, n}]^2, {x, 0, n}]; (* Michael Somos, Jan 31 2015 *)

{a(n) = my(A, p, e, x); if( n<0, 0, n = 12*n + 1; A = factor(n); prod( k=1, matsize(A)[1], [p, e] = A[k,]; if( p<5, 0, p%12>1, if( e%2, 0, (-1)^((p%12==5) * e/2)), for( i=1, sqrtint(p\9), if( issquare(p - 9*i^2), x=i; break)); (e + 1) * (-1)^(e*x))))}; /* Michael Somos, Aug 30 2006 */

{a(n) = if( n<0, 0, polcoeff( eta(x + x * O(x^n))^2, n))}; /* Michael Somos, Aug 30 2006 */

Vec(eta(x)^2) \\ Charles R Greathouse IV, Apr 22 2016

Expansion of q^(-1/12) * eta(q)^2 in powers of q. - Michael Somos, Mar 06 2012
Euler transform of period 1 sequence [ -2, ...]. - Michael Somos, Mar 06 2012
a(n) = b(12*n + 1) where b(n) is multiplicative and b(2^e) = b(3^e) = 0^e, b(p^e) = (1 + (-1)^e) / 2 if p == 7, 11 (mod 12), b(p^e) = (-1)^(e/2) * (1 + (-1)^e) / 2 if p == 5 (mod 12), b(p^e) = (e + 1) * (-1)^(e*x) if p == 1 (mod 12) where p = x^2 + 9*y^2. - Michael Somos, Sep 16 2006
Convolution inverse of A000712.
a(0) = 1, a(n) = -(2/n)*Sum{k = 0..n-1} a(k)*sigma_1(n-k). - Joerg Arndt, Feb 05 2011
Expansion of f(-x)^2 in powers of x where f() is a Ramanujan theta function. - Michael Somos, May 17 2015
G.f. is a period 1 Fourier series which satisfies f(-1 / (144 t)) = 12 (t/i) f(t) where q = exp(2 Pi i t). - Michael Somos, May 17 2015
a(n) = Sum_{k=0..n} A010815(k)*A010815(n-k); self convolution of A010815. - Gevorg Hmayakyan, Sep 18 2016
G.f.: Sum_{m, n in Z, n >= 2*|m|} (-1)^n * x^((3*(2*n + 1)^2 - (6*m + 1)^2)/24). - Seiichi Manyama, Oct 01 2016
G.f.: exp(-2*Sum_{k>=1} x^k/(k*(1 - x^k))). - Ilya Gutkovskiy, Feb 05 2018
From Peter Bala, Jan 02 2021: (Start)
For prime p congruent to 5, 7 or 11 (mod 12), a(n*p^2 + (p^2 - 1)/12) = e*a(n), where e = 1 if p == 7 or 11 (mod 12) and e = -1 if p == 5 (mod 12).
If n and p are coprime then a(n*p + (p^2 - 1)/12) = 0. See Cooper et al., Theorem 1. (End)
With the convention that a(n) = 0 for n < 0 we have the recurrence a(n) = A010816(n) + Sum_{k a nonzero integer} (-1)^(k+1)*a(n - k*(3*k-1)/2), where A010816(n) = (-1)^m*(2*m+1) if n = m*(m + 1)/2, with m positive, is a triangular number else equals 0. For example, n = 10 = (4*5)/2 is a triangular number, A010816(10) = 9, and so a(10) = 9 + a(9) + a(8) - a(5) - a(3) = 9 - 2 - 2 - 2 - 2 = 1. - Peter Bala, Apr 06 2022

A286354 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of Product_{j>=1} (1 - x^j)^k.

Original entry on oeis.org

1, 1, 0, 1, -1, 0, 1, -2, -1, 0, 1, -3, -1, 0, 0, 1, -4, 0, 2, 0, 0, 1, -5, 2, 5, 1, 1, 0, 1, -6, 5, 8, 0, 2, 0, 0, 1, -7, 9, 10, -5, 0, -2, 1, 0, 1, -8, 14, 10, -15, -4, -7, 0, 0, 0, 1, -9, 20, 7, -30, -6, -10, 0, -2, 0, 0, 1, -10, 27, 0, -49, 0, -5, 8, 0, -2, 0, 0, 1, -11, 35, -12, -70, 21, 11, 25, 9, 0, 1, 0, 0

Offset: 0

Ilya Gutkovskiy, May 08 2017

A(n,k) number of partitions of n into an even number of distinct parts minus number of partitions of n into an odd number of distinct parts with k types of each part.

			A(3,2) = 2 because we have [2, 1], [2', 1], [2, 1'], [2', 1'] (number of partitions of 3 into an even number of distinct parts with 2 types of each part), [3], [3'] (number of partitions of 3 into an odd number of distinct parts with 2 types of each part) and 4 - 2 = 2.
Square array begins:
1,  1,  1,  1,  1,   1,  ...
0, -1, -2, -3, -4,  -5,  ...
0, -1, -1,  0,  2,   5,  ...
0,  0,  2,  5,  8,  10,  ...
0,  0,  1,  0, -5, -15,  ...
0,  1,  2,  0, -4,  -6,  ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened
Index entries for expansions of Product_{k >= 1} (1-x^k)^m

Columns k=0-20 give: A000007, A010815, A002107, A010816, A000727, A000728, A000729, A000730, A000731, A010817, A010818, A010819, A000735, A010820, A010821, A010822, A000739, A010823, A010824, A010825, A010826.
Main diagonal gives A008705.
Antidiagonal sums give A299105.

A:= proc(n, k) option remember; `if`(n=0, 1, -k*
      add(numtheory[sigma](j)*A(n-j, k), j=1..n)/n)
    end:
seq(seq(A(n, d-n), n=0..d), d=0..12);  # Alois P. Heinz, Jun 21 2018

Table[Function[k, SeriesCoefficient[Product[(1 - x^i)^k , {i, Infinity}], {x, 0, n}]][j - n], {j, 0, 12}, {n, 0, j}] // Flatten
Table[Function[k, SeriesCoefficient[QPochhammer[x, x, Infinity]^k, {x, 0, n}]][j - n], {j, 0, 12}, {n, 0, j}] // Flatten
Table[Function[k, SeriesCoefficient[Sum[(-1)^i*x^(i*(3*i + 1)/2), {i, -Infinity, Infinity}]^k, {x, 0, n}]][j - n], {j, 0, 12}, {n, 0, j}] // Flatten

G.f. of column k: Product_{j>=1} (1 - x^j)^k.
G.f. of column k: (Sum_{j=-inf..inf} (-1)^j*x^(j*(3*j+1)/2))^k.
Column k is the Euler transform of period 1 sequence [-k, -k, -k, ...].

A060043 Triangle T(n,k), n >= 1, k >= 1, of generalized sum of divisors function, read by rows.

Original entry on oeis.org

1, 3, 1, 4, 3, 7, 9, 6, 1, 15, 12, 3, 30, 8, 9, 45, 15, 22, 67, 13, 1, 42, 99, 18, 3, 81, 135, 12, 9, 140, 175, 28, 22, 231, 231, 14, 51, 351, 306, 24, 1, 97, 551, 354, 24, 3, 188, 783, 465, 31, 9, 330, 1134, 540, 18, 22, 568, 1546, 681, 39, 51, 918, 2142, 765, 20

Offset: 1

N. J. A. Sloane, Mar 19 2001

Lengths of rows are 1 1 2 2 2 3 3 3 3 ... (A003056).

			Triangle turned on its side begins:
1 3 4 7 6 12  8 15 13 18 ...
    1 3 9 15 30 45 67 99 ...
           1  3  9 22 42 ...
                       1 ...
For example, T(6,2) = 15.

Alois P. Heinz, Rows n = 1..1000, flattened
G. E. Andrews and S. C. F. Rose, MacMahon's sum-of-divisors functions, Chebyshev polynomials, and Quasi-modular forms, arXiv:1010.5769 [math.NT], 2010.
P. A. MacMahon, Divisors of numbers and their continuations in the theory of partitions, Proc. London Math. Soc., 19 (1921), 75-113; Coll. Papers II, pp. 303-341.

Diagonals give A000203, A002127, A002128, A365664, A365665.

Cf. A010816, A060044, A060047.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      b(n, i-1)+add(expand(b(n-i*j, i-1)*j*x), j=1..n/i)))
    end:
T:= n-> (p-> seq(coeff(p, x, degree(p)-i), i=0..degree(p)-1))(b(n$2)):
seq(T(n), n=1..20);  # Alois P. Heinz, Jul 21 2025

Clear[diag, m]; nmax = 19; kmax = Floor[(Sqrt[8*nmax+1]-1)/2]; m[0] = 0; diag[k_] := diag[k] = Sum[q^(Sum[m[i], {i, 1, k}])/(Times @@ (1 - q^Array[m, k]))^2, Sequence @@ Table[{m[j], m[j-1]+1, nmax}, {j, 1, k}] // Evaluate] + O[q]^(nmax+1) // CoefficientList[#, q]&; Table[ Select[ Table[diag[k][[j+1]], {k, 1, kmax}], IntegerQ[#] && # > 0&] // Reverse, {j, 1, nmax}] // Flatten (* Jean-François Alcover, Jul 18 2017 *)

T(n, 1) = sum of divisors of n (A000203), T(n, k) = sum of s_1*s_2*...*s_k where s_1, s_2, ..., s_k are such that s_1*m_1 + s_2*m_2 + ... + s_k*m_k = n and the sum is over all such k-partitions of n.
G.f. for k-th diagonal (the k-th row of the sideways triangle shown in the example): Sum_{ m_1 < m_2 < ... < m_k} q^(m_1+m_2+...+m_k)/((1-q^m_1)*(1-q^m_2)*...*(1-q^m_k))^2 = Sum_n T(n, k)*q^n.
G.f. for k-th diagonal: (-1)^k * (1/(2*k+1)) * ( Sum_{j>=k} (-1)^j * (2*j+1) * binomial(j+k,2*k) * q^(j*(j+1)/2) ) / ( Sum_{j>=0} (-1)^j * (2*j+1) * q^(j*(j+1)/2) ). - Seiichi Manyama, Sep 15 2023

More terms from Naohiro Nomoto, Jan 24 2002

A339702 Dirichlet g.f.: Product_{k>=2} (1 - k^(-s))^3.

Original entry on oeis.org

1, -3, -3, 0, -3, 6, -3, 5, 0, 6, -3, 6, -3, 6, 6, 0, -3, 6, -3, 6, 6, 6, -3, -9, 0, 6, 5, 6, -3, -3, -3, 0, 6, 6, 6, -9, -3, 6, 6, -9, -3, -3, -3, 6, 6, 6, -3, -9, 0, 6, 6, 6, -3, -9, 6, -9, 6, 6, -3, -21, -3, 6, 6, -7, 6, -3, -3, 6, 6, -3, -3, -12, -3, 6, 6, 6, 6, -3, -3, -9

Offset: 1

Ilya Gutkovskiy, Dec 13 2020

sign

Cf. A010816, A114592, A339318, A339701, A339703, A339704, A339705, A339706, A339707.

a(1) = 1; a(n) = -Sum_{d|n, d < n} A339318(n/d) * a(d).

a(p^k) = A010816(k) for prime p.

A116916 Expansion of q^(-1/8) * (eta(q)^3 + 3 * eta(q^9)^3) in powers of q^3.

Original entry on oeis.org

1, 5, -7, 0, 0, -11, 0, 13, 0, 0, 0, 0, 17, 0, 0, -19, 0, 0, 0, 0, 0, 0, -23, 0, 0, 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, 29, 0, 0, 0, 0, -31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -35, 0, 0, 0, 0, 0, 37, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 41, 0, 0, 0, 0, 0, 0, -43, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -47, 0, 0, 0, 0, 0

Offset: 0

Michael Somos, Feb 26 2006

sign

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

			1 + 5*x - 7*x^2 - 11*x^5 + 13*x^7 + 17*x^12 - 19*x^15 - 23*x^22 + 25*x^26 + ...
q + 5*q^25 - 7*q^49 - 11*q^121 + 13*q^169 + 17*q^289 - 19*q^361 +...

Seiichi Manyama, Table of n, a(n) for n = 0..1000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A010816, A202394.

Cf. A282937, A282941.

a[0] = 1; a[n_] := SeriesCoefficient[QPochhammer[x + x*O[x]^(3n)]^3 + 3x * QPochhammer[x^9 + O[x]^(3n)]^3, 3n]; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Nov 06 2015, adapted from PARI *)
a[ n_] := With[ {m = Sqrt[ 24 n + 1]}, If[ IntegerQ[ m], m KroneckerSymbol[ 3, m] KroneckerSymbol[ -3, m], 0]]; (* Michael Somos, Apr 27 2018 *)

{a(n) = if( issquare( 24*n + 1, &n), n * kronecker( 3, n) * kronecker( -3, n))};

{a(n) = if( n<1, n==0, n*=3; polcoeff( eta(x + x * O(x^n))^3 + 3 * x * eta(x^9 + x * O(x^n))^3, n))};

Expansion of f(-x) * a(x) in powers of x where f() is a Ramanujan theta function and a() is a cubic AGM theta function.
Expansion of f(-x)^3 + 3 * x * f(-x^9)^3 in powers of x^3 where f() is a Ramanujan theta function.
G.f. is a period 1 Fourier series which satisfies f(-1 / (576 t)) = 4608^(1/2) (t / i)^(3/2) g(t) where q = exp(2 Pi i t) and g() is g.f. for A202394.
G.f.: Sum_{k in Z} (-1)^k * (6*k + 1) * x^(k * (3*k + 1) / 2).
a(5*n + 3) = a(5*n + 4) = 0. a(25*n + 1) = 5 * a(n).
a(n) = A010816(3*n).

A365664 Expansion of Sum_{0

Original entry on oeis.org

1, 3, 9, 22, 51, 97, 188, 330, 568, 918, 1452, 2233, 3344, 4884, 7004, 9856, 13653, 18699, 25080, 33462, 43918, 57304, 73668, 94482, 119262, 150285, 187231, 232560, 285660, 350746, 425627, 516477, 620731, 745503, 887796, 1056669, 1247521, 1472460, 1726054, 2021327

Offset: 10

Seiichi Manyama, Sep 15 2023

nonn

Number of partitions of n with four designated summands. For example: a(11) = 3 because there are three partitions of 11 with four designated summands: [5'+ 3'+ 2'+ 1'], [4'+ 3'+ 2'+ 1'+ 1], [4'+ 3'+ 2'+ 1 + 1']. - Omar E. Pol, Jul 26 2025

Seiichi Manyama, Table of n, a(n) for n = 10..10000
George E. Andrews and Simon C. F. Rose, MacMahon's sum-of-divisors functions, Chebyshev polynomials, and Quasi-modular forms, Journal für die reine und angewandte Mathematik (Crelles Journal), Vol. 2013, No. 676 (2013), pp. 97-103; arXiv preprint, arXiv:1010.5769 [math.NT], 2010.

A diagonal of A060043.
Cf. A000203, A002127, A002128, A365665.
Cf. A010816, A365630, A365666.
Cf. A001158, A001160, A013955.
Column k=4 of A385001.

a[n_] := Module[{d = DivisorSigma[{1, 3, 5, 7}, n]}, (5*d[[4]] - (126*n-441)*d[[3]] + (756*n^2-4410*n+4935)*d[[2]] - (840*n^3-5880*n^2+9870*n-3229)*d[[1]])/967680]; Array[a, 40, 10] (* Amiram Eldar, Jan 07 2025 *)

a(n) = (5*sigma(n, 7)-(126*n-441)*sigma(n, 5)+(756*n^2-4410*n+4935)*sigma(n, 3)-(840*n^3-5880*n^2+9870*n-3229)*sigma(n))/967680; \\ Seiichi Manyama, Jul 24 2024

G.f.: (1/9) * ( Sum_{k>=4} (-1)^k * (2*k+1) * binomial(k+4,8) * q^(k*(k+1)/2) ) / ( Sum_{k>=0} (-1)^k * (2*k+1) * q^(k*(k+1)/2) ).
a(n) = (5*sigma_7(n) - (126*n-441)*sigma_5(n) + (756*n^2-4410*n+4935)*sigma_3(n) - (840*n^3-5880*n^2+9870*n-3229)*sigma(n))/967680. - Seiichi Manyama, Jul 24 2024
Sum_{k=1..n} a(k) ~ Pi^8 * n^8 / (8!*9!). - Vaclav Kotesovec, Aug 01 2025

A133089 Expansion of f(x)^3 in powers of x where f() is a Ramanujan theta function.

Original entry on oeis.org

1, 3, 0, -5, 0, 0, -7, 0, 0, 0, 9, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, -13, 0, 0, 0, 0, 0, 0, -15, 0, 0, 0, 0, 0, 0, 0, 17, 0, 0, 0, 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, 0, 0, -21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 27, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Michael Somos, Sep 09 2007

sign

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

			G.f. = 1 + 3*x - 5*x^3 - 7*x^6 + 9*x^10 + 11*x^15 - 13*x^21 - 15*x^28 + ...
G.f. = q + 3*q^9 - 5*q^25 - 7*q^49 + 9*q^81 + 11*q^121 - 13*q^169 + ...

S. Ramanujan, Notebooks, Tata Institute of Fundamental Research, Bombay 1957 Vol. 1, see page 266. MR0099904 (20 #6340)

Seiichi Manyama, Table of n, a(n) for n = 0..10000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A010816, A133079.

a[ n_] := SeriesCoefficient[ QPochhammer[ -x]^3, {x, 0, n}]; (* Michael Somos, Jun 19 2015 *)

{a(n) = if( n<0, 0, if( issquare( 8*n+1, &n), (-1)^( (n-1) \ 4) * n))};

{a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x^2 + A)^3 / (eta(x + A) * eta(x^4 + A)))^3, n))};

Expansion of q^(-1/8) * (eta(q^2)^3 / (eta(q) * eta(q^4)))^3 in powers of q.
Euler transform of period 4 sequence [ 3, -6, 3, -3, ...].
a(n) = b(8*n+1) where b(n) is multiplicative and b(2^e) = 0^e, b(p^e) = (1 + (-1)^e)/2 * p^(e/2) if p == 1, 3 (mod 8), b(p^e) = (1 + (-1)^e)/2 * (-p)^(e/2) if p == 5, 7 (mod 8).
G.f. is a period 1 Fourier series which satisfies f(-1 / (256 t)) = 64 (t/i)^(3/2) f(t) where q = exp(2 Pi i t).
a(3*n + 2) = a(5*n + 2) = a(5*n + 4) = a(9*n + 4) = a(9*n + 7) = 0. a(9*n + 1) = 3 * a(n). a(25*n + 3) = -5 * a(n).
G.f.: Sum_{k>=0} (-1)^floor(k/2) * (2*k + 1) * x^(k*(k + 1))/2.
G.f.: ( Product_{k>0} (1 - x^k) * (1 + x^k)^2 / (1 + x^(2*k)) )^3.
a(n) = -(-1)^n * A010816(n). a(3*n) = A133079(n).

A258407 Decimal expansion of Integral_{x=0..1} Product_{k>=1} (1-x^k)^3 dx.

Original entry on oeis.org

1, 9, 6, 8, 8, 0, 6, 1, 5, 3, 1, 4, 5, 8, 8, 9, 7, 5, 3, 5, 3, 3, 5, 1, 3, 5, 8, 4, 7, 6, 9, 6, 6, 6, 8, 2, 9, 6, 6, 7, 3, 4, 3, 1, 7, 8, 3, 9, 1, 7, 5, 7, 5, 8, 6, 0, 9, 3, 3, 5, 7, 0, 6, 2, 6, 8, 9, 9, 0, 1, 5, 1, 1, 1, 1, 0, 5, 6, 2, 0, 9, 2, 2, 2, 9, 0, 5, 1, 0, 6, 0, 2, 7, 8, 3, 7, 4, 5, 6, 7, 3, 5, 4, 1, 8, 3

Offset: 0

Vaclav Kotesovec, May 29 2015

In general, Integral_{x=0..1} Product_{k>=1} (1-x^(m*k))^3 dx = Sum_{n>=0} (-1)^n * (2*n+1) / (m*n*(n+1)/2 + 1) is equal to

if 0

if m = 8: Pi/4

if m > 8: 2*Pi / (m * cos((Pi/2)*sqrt(1-8/m)))

Special values: m=4: Pi/(2*cosh(Pi/2)), m=9: 4*Pi/(9*sqrt(3)).

---

Integral_{x=-1..1} Product_{k>=1} (1-x^k)^3 dx = 2*Pi*(1 + sqrt(2) * cosh(sqrt(7)*Pi/4)) / cosh(sqrt(7)*Pi/2) = 1.32639350417409769439126... . - Vaclav Kotesovec, Jun 02 2015

			0.1968806153145889753533513584769666829667343178391757586093357...

Vaclav Kotesovec, The integration of q-series

Cf. A010816, A258232, A258406, A258404, A258405.

evalf(2*Pi/cosh(sqrt(7)*Pi/2), 120);
evalf(Sum((-1)^n * (2*n+1) / (n*(n+1)/2 + 1), n=0..infinity), 120);

RealDigits[2*Pi*Sech[(Sqrt[7]*Pi)/2],10,105][[1]]

2*Pi/cosh((sqrt(7)*Pi)/2) \\ Stefano Spezia, Aug 23 2025

Equals 2*Pi/cosh(sqrt(7)*Pi/2).

Equals Sum_{n>=0} (-1)^n * (2*n+1) / (n*(n+1)/2 + 1).

A365665 Expansion of Sum_{0

Original entry on oeis.org

1, 3, 9, 22, 51, 108, 208, 390, 693, 1193, 1977, 3195, 4995, 7722, 11583, 17164, 24882, 35685, 50205, 70083, 96300, 131101, 176358, 235377, 310651, 407352, 529074, 682750, 874038, 1112085, 1405521, 1766259, 2206413, 2741431, 3389052, 4168089, 5103450, 6218469

Offset: 15

Seiichi Manyama, Sep 15 2023

nonn

Number of partitions of n with five designated summands (when part i has multiplicity j > 0 exactly one part i is "designated"). For example: a(16) = 3 because there are three partitions of 16 with five designated summands: [6'+ 4'+ 3'+ 2'+ 1'], [5'+ 4'+ 3'+ 2'+ 1'+ 1], [5'+ 4'+ 3'+ 2'+ 1 + 1']. - Omar E. Pol, Jul 29 2025

Vaclav Kotesovec, Table of n, a(n) for n = 15..10000
G. E. Andrews and S. C. F. Rose, MacMahon's sum-of-divisors functions, Chebyshev polynomials, and Quasi-modular forms, arXiv:1010.5769 [math.NT], 2010.

A diagonal of A060043.
Cf. A000203, A002127, A002128, A365664.
Cf. A010816, A365631, A365667.
Column k=5 of A385001.
Cf. A384926.

nmax = 60; Drop[CoefficientList[Series[-1/11 * Sum[(-1)^k*(2*k + 1)*Binomial[k + 5, 10]*x^(k*(k + 1)/2), {k, 5, nmax}]/Sum[(-1)^k*(2*k + 1)*x^(k*(k + 1)/2), {k, 0, nmax}], {x, 0, nmax}], x], 15] (* Vaclav Kotesovec, Jul 29 2025 *)
(* or *)
Table[(10679/17203200 - 1571*n/774144 + 133*n^2/92160 - n^3/3072 + n^4/46080) * DivisorSigma[1, n] + (1571/1548288 - 133*n/122880 + 3*n^2/10240 - n^3/46080) * DivisorSigma[3, n] + (133/1228800 - n/20480 + n^2/215040) * DivisorSigma[5, n] + (1/516096 - n/3096576) * DivisorSigma[7, n] + DivisorSigma[9, n]/154828800, {n, 15, 60}] (* Vaclav Kotesovec, Jul 29 2025 *)

G.f.: -(1/11) * ( Sum_{k>=5} (-1)^k * (2*k+1) * binomial(k+5,10) * q^(k*(k+1)/2) ) / ( Sum_{k>=0} (-1)^k * (2*k+1) * q^(k*(k+1)/2) ).
From Vaclav Kotesovec, Jul 29 2025: (Start)
a(n) = (10679/17203200 - 1571*n/774144 + 133*n^2/92160 - n^3/3072 + n^4/46080)*sigma(n) + (1571/1548288 - 133*n/122880 + 3*n^2/10240 - n^3/46080)*sigma_3(n) + (133/1228800 - n/20480 + n^2/215040)*sigma_5(n) + (1/516096 - n/3096576)*sigma_7(n) + sigma_9(n)/154828800.
Sum_{k=1..n} a(k) ~ Pi^10 * n^10 / 144850083840000.
(End)

Showing 1-10 of 24 results. Next

cp's OEIS Frontend

A000594 Ramanujan's tau function (or Ramanujan numbers, or tau numbers).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Julia

Magma

Magma

Maple

Mathematica

PARI

PARI

PARI

PARI

PARI

Python

Ruby

Ruby

Sage

Sage

Formula

A002107 Expansion of Product_{k>=1} (1 - x^k)^2.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Julia

Magma

Maple

Mathematica

PARI

PARI

PARI

Formula

A286354 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of Product_{j>=1} (1 - x^j)^k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A060043 Triangle T(n,k), n >= 1, k >= 1, of generalized sum of divisors function, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A339702 Dirichlet g.f.: Product_{k>=2} (1 - k^(-s))^3.

Views

Author

Keywords

Crossrefs

Formula

A116916 Expansion of q^(-1/8) * (eta(q)^3 + 3 * eta(q^9)^3) in powers of q^3.

Views

Author

Keywords