A328717 -id:A328717 - cp's OEIS frontend

A053723 Number of 5-core partitions of n.

1, 1, 2, 3, 5, 2, 6, 5, 7, 5, 12, 6, 12, 6, 10, 11, 16, 7, 20, 15, 12, 12, 22, 10, 25, 12, 20, 18, 30, 10, 32, 21, 24, 16, 30, 21, 36, 20, 24, 25, 42, 12, 42, 36, 35, 22, 46, 22, 43, 25, 32, 36, 52, 20, 60, 30, 40, 30, 60, 30, 62, 32, 42, 43, 60, 24, 66, 48, 44, 30, 72, 35, 72

Offset: 0

James Sellers, Feb 11 2000

Number 11 of the 74 eta-quotients listed in Table I of Martin (1996).

			G.f. = 1 + x + 2*x^2 + 3*x^3 + 5*x^4 + 2*x^5 + 6*x^6 + 5*x^7 + 7*x^8 + ...
G.f. = q + q^2 + 2*q^3 + 3*q^4 + 5*q^5 + 2*q^6 + 6*q^7 + 5*q^8 + 7*q^9 + ...

Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988; see p. 54 (1.52).

Seiichi Manyama, Table of n, a(n) for n = 0..10000 (terms 0..1000 from T. D. Noe)
Subhajit Bandyopadhyay and Nayandeep Deka Baruah, Arithmetic Identities for Some Analogs of the 5-Core Partition Function, J. Int. Seq. (2024) Vol. 27, Art. No. 24.4.5.
Subhajit Bandyopadhyay and Nayandeep Deka Baruah, Arithmetic Identities for Some Analogs of 5-core Partition Function, arXiv:2409.02034 [math.NT], 2024.
Bruce C. Berndt, The Rogers-Ramanujan continued fraction.
Bruce C. Berndt et al., The Rogers-Ramanujan continued fraction, Journal of Computational and Applied Mathematics, Vol. 105, No. 1-2 (1999), 9-24.
Freeman J. Dyson, Missed opportunities, Bull. Amer. Math. Soc. 78 (1972), 635-652. see pages 636-637.
Frank Garvan, Dongsu Kim, and Dennis Stanton, Cranks and t-cores.
Frank Garvan, Dongsu Kim, and Dennis Stanton, Cranks and t-cores, Inventiones Math. 101 (1990) 1-17.
Yves Martin, Multiplicative eta-quotients, Trans. Amer. Math. Soc. 348 (1996), no. 12, 4825-4856, see page 4852 Table I.
Michael Somos, Index to Yves Martin's list of 74 multiplicative eta-quotients and their A-numbers, 2016.

Column t=5 of A175595.
Cf. A053724, A109063, A109064, A138512.
Cf. A227216, A229802, A328717.

a[n_]:=Total[KroneckerSymbol[#, 5]*n/# & /@ Divisors[n]]; Table[a[n], {n, 1, 73}] (* Jean-François Alcover, Jul 26 2011, after PARI prog. *)
a[ n_] := SeriesCoefficient[ QPochhammer[ x^5]^5 / QPochhammer[ x], {x, 0, n}]; (* Michael Somos, Jul 13 2012 *)
a[ n_] := With[{m = n + 1}, If[ m < 1, 0, DivisorSum[ m, m/# KroneckerSymbol[ 5, #] &]]]; (* Michael Somos, Jul 13 2012 *)

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

{a(n) = if( n<0, 0, n++; sumdiv( n, d, kronecker( d, 5) * n/d))};

{a(n) = if( n<0, 0, n++; direuler( p=2, n, 1 / ((1 - p*X) * (1 - kronecker( p, 5) * X)))[n])};

Given g.f. A(x), then B(q) = q * A(q) satisfies 0 = f(B(q), B(q^2), B(q^4)) where f(u, v, w) = v^3 + 2 * u*v*w + 4 * u*w^2 - u^2*w. - Michael Somos, May 02 2005
G.f.: (1/x) * (Sum_{k>0} Kronecker(k, 5) * x^k / (1 - x^k)^2). - Michael Somos, Sep 02 2005
G.f.: Product_{k>0} (1 - x^(5*k))^5 / (1 - x^k) = 1/x * (Sum_{k>0} k * x^k * (1 - x^k) * (1 - x^(2*k)) / (1 - x^(5*k))). - Michael Somos, Jun 17 2005
G.f.: (1/x) * Sum_{a, b, c, d, e in Z^5} x^((a^2 + b^2 + c^2 + d^2 + e^2) / 10) where a + b + c + d + e = 0, (a, b, c, d, e) == (0, 1, 2, 3, 4) (mod 5). - [Dyson 1972] Michael Somos, Aug 08 2007
Euler transform of period 5 sequence [ 1, 1, 1, 1, -4, ...].
Expansion of q^(-1) * eta(q^5)^5 / eta(q) in powers of q.
a(n) = b(n + 1) where b() is multiplicative with b(5^e) = 5^e, b(p^e) = (p^(e+1) - 1) / (p - 1) if p == 1, 4 (mod 5), b(p^e) = (p^(e+1) + (-1)^e) / (p + 1) if p == 2, 3 (mod 5).
Convolution inverse of A109063. a(n) = (-1)^n * A138512(n+1).
Convolution of A227216 and A229802. - Michael Somos, Jun 10 2014
G.f. is a period 1 Fourier series which satisfies f(-1 / (5 t)) = (1/5)^(1/2) (t/i)^2 g(t) where q = exp(2 Pi i t) and g() is the g.f. for A109064. - Michael Somos, May 17 2015
Sum_{k=1..n} a(k) ~ c * n^2 / 2, where c = A328717. - Amiram Eldar, Nov 23 2023

A086466 Decimal expansion of 2*sqrt(5)/5 arccsch(2).

Original entry on oeis.org

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

Offset: 0

Eric W. Weisstein, Jul 21 2003

Equals the value of the Dirichlet L-series of the non-principal character modulo 5 (A080891) at s=1. - Jianing Song, Nov 16 2019

			0.43040894096400403888943323295060542542457...

Steven R. Finch, Mathematical Constants, Encyclopedia of Mathematics and its Applications, vol. 94, Cambridge University Press, Section 1.2, p. 7.

R. J. Mathar, Table of Dirichlet L-Series and Prime Zeta Modulo Functions for Small Moduli, arXiv:1008.2547 [math.NT], 2010-2015, Table 22 for L(m=5,r=3,s=1).
H.-J. Seiffert, Problem B-771, Elementary Problems and Solutions, The Fibonacci Quarterly, Vol. 32, No. 4 (1994), p. 374; More Sums, Solution to Problem B-771 by Don Redmond, ibid., Vol. 33, No. 5 (1995), pp. 470-471.
Renzo Sprugnoli, Sums of reciprocals of the central binomial coefficients, INTEGERS 6 (2006) #A27
Eric Weisstein's World of Mathematics, Central Binomial Coefficient.
Index entries for transcendental numbers

Cf. A086465, A086467, A086468.

Cf. A000032, A000045, A080891, A328717 (s=2), A344041.

2*Log[GoldenRatio]/Sqrt[5] // RealDigits[#, 10, 102]& // First (* Jean-François Alcover, Apr 18 2014 *)

2*log((1+sqrt(5))/2)/sqrt(5) \\ Stefano Spezia, Oct 15 2024

Equals Sum_{k>=1} (-1)^(k-1)/(k*binomial(2*k,k)).
Equals A010532 * A002390 / 10. - R. J. Mathar, Jul 26 2010
Also equals f'(0) = 2*log(phi)/sqrt(5), with f(x) = (phi^x-cos(Pi*x)*phi^-x)/sqrt(5), the real Fibonacci interpolating function. - Jean-François Alcover, Apr 04 2014
Equals Sum_{k>=1} A080891(k)/k = Sum_{k>=1} Kronecker(5,k)/k = 1 - 1/2 - 1/3 + 1/4 + 1/6 - 1/7 - 1/8 + 1/9 + ... - Jianing Song, Nov 16 2019
Equals Sum_{k>=1} F(k)/(k*2^(k+1)), where F(k) is the k-th Fibonacci number (A000045). - Amiram Eldar, Aug 10 2020
Sum_{k>=1} (2*k+1)*Lucas(k)/(k*(k+1)*2^k) = 10*c + 2 = 6.3040894096... where c is this constant (Seiffert, 1994). - Amiram Eldar, Jan 15 2022
Equals Sum_{k>=1} F(k)/(k*3^k), where F(k) is the k-th Fibonacci number (A000045). - Amiram Eldar, Jul 02 2023
Equals 1/Product_{p prime} (1 - Kronecker(5,p)/p), where Kronecker(5,p) = 0 if p = 5, 1 if p == 1 or 4 (mod 5) or -1 if p == 2 or 3 (mod 5). - Amiram Eldar, Dec 17 2023
Equals A344041/2. - Hugo Pfoertner, Oct 16 2024

A328895 Decimal expansion of Sum_{k>=1} Kronecker(8,k)/k^2.

Original entry on oeis.org

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

Offset: 0

Jianing Song, Nov 19 2019

Let Chi() be a primitive character modulo d, the so-called Dirichlet L-series L(s,Chi) is the analytic continuation (see the functional equations involving L(s,Chi) in the MathWorld link entitled Dirichlet L-Series) of the sum Sum_{k>=1} Chi(k)/k^s, Re(s)>0 (if d = 1, the sum converges requires Re(s)>1).
If s != 1, we can represent L(s,Chi) in terms of the Hurwitz zeta function by L(s,Chi) = (Sum_{k=1..d} Chi(k)*zeta(s,k/d))/d^s.
L(s,Chi) can also be represented in terms of the polylog function by L(s,Chi) = (Sum_{k=1..d} Chi'(k)*polylog(s,u^k))/(Sum_{k=1..d} Chi'(k)*u^k), where Chi' is the complex conjugate of Chi, u is any primitive d-th root of unity.
If m is a positive integer, we have L(m,Chi) = (Sum_{k=1..d} Chi(k)*polygamma(m-1,k/d))/((-d)^m*(m-1)!).
In this sequence we have Chi = A091337 and s = 2.

			1 - 1/3^2 - 1/5^2 + 1/7^2 + 1/9^2 - 1/11^2 - 1/13^2 + 1/15^2 + ... = Pi^2/(8*sqrt(2)) = 0.8723580249...

M. W. Coffey, Summatory relations and prime products for the Stieltjes constants and other related results, arXiv:1701.07064 [math.NT], 2017, eq. (2.1).
R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, Section 2.2 at m=8, r=2, s=2.
Eric Weisstein's World of Mathematics, Dirichlet L-Series.
Eric Weisstein's World of Mathematics, Polygamma Function.

Cf. A091337, A346728, A346727, A346260.
Decimal expansion of Sum_{k>=1} Kronecker(d,k)/k^2, where d is a fundamental discriminant: A309710 (d=-8), A103133 (d=-7), A006752 (d=-4), A086724 (d=-3), A013661 (d=1), A328717 (d=5), this sequence (d=8), A258414 (d=12).
Decimal expansion of Sum_{k>=1} Kronecker(8,k)/k^s: A196525 (s=1), this sequence (s=2), A329715 (s=3).

RealDigits[Pi^2/(8*Sqrt[2]), 10, 102] // First

default(realprecision, 100); Pi^2/(8*sqrt(2))

Equals Pi^2/(8*sqrt(2)).
Equals (zeta(2,1/8) - zeta(2,3/8) - zeta(2,5/8) + zeta(2,7/8))/64, where zeta(s,a) is the Hurwitz zeta function.
Equals (polylog(2,u) - polylog(2,u^3) - polylog(2,-u) + polylog(2,-u^3))/sqrt(8), where u = sqrt(2)/2 + i*sqrt(2)/2 is an 8th primitive root of unity, i = sqrt(-1).
Equals (polygamma(1,1/8) - polygamma(1,3/8) - polygamma(1,5/8) + polygamma(1,7/8))/64.
Equals -Integral_{x=0..oo} log(x)/(x^4 + 1) dx. - Amiram Eldar, Jul 17 2020
Equals 1/(Product_{p prime == 1 or 7 (mod 8)} (1 - 1/p^2) * Product_{p prime == 3 or 5 (mod 8)} (1 + 1/p^2)). - Amiram Eldar, Dec 17 2023

A309710 Decimal expansion of Sum_{k>=1} Kronecker(-8,k)/k^2.

Original entry on oeis.org

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

Offset: 1

Jianing Song, Nov 19 2019

Let Chi() be a primitive character modulo d, the so-called Dirichlet L-series L(s,Chi) is the analytic continuation (see the functional equations involving L(s,Chi) in the MathWorld link entitled Dirichlet L-Series) of the sum Sum_{k>=1} Chi(k)/k^s, Re(s)>0 (if d = 1, the sum converges requires Re(s)>1).
If s != 1, we can represent L(s,Chi) in terms of the Hurwitz zeta function by L(s,Chi) = (Sum_{k=1..d} Chi(k)*zeta(s,k/d))/d^s.
L(s,Chi) can also be represented in terms of the polylog function by L(s,Chi) = (Sum_{k=1..d} Chi'(k)*polylog(s,u^k))/(Sum_{k=1..d} Chi'(k)*u^k), where Chi' is the complex conjugate of Chi, u is any primitive d-th root of unity.
If m is a positive integer, we have L(m,Chi) = (Sum_{k=1..d} Chi(k)*polygamma(m-1,k/d))/((-d)^m*(m-1)!).
In this sequence we have Chi = A188510 and s = 2.

			1 + 1/3^2 - 1/5^2 - 1/7^2 + 1/9^2 + 1/11^2 - 1/13^2 - 1/15^2 + ...= 1.0647341710...

Steven R. Finch, Mathematical Constants II, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 98.
R. J. Mathar, Table of Dirichlet L-series and prime zeta modulo functions for small moduli, Section 2.2 L(m=8, r=4, s=2).
Eric Weisstein's World of Mathematics, Dirichlet L-Series.
Eric Weisstein's World of Mathematics, Polygamma Function.

Cf. A188510.
Decimal expansion of Sum_{k>=1} Kronecker(d,k)/k^2, where d is a fundamental discriminant: this sequence (d=-8), A103133 (d=-7), A006752 (d=-4), A086724 (d=-3), A013661 (d=1), A328717 (d=5), A328895 (d=8), A258414 (d=12).
Decimal expansion of Sum_{k>=1} Kronecker(-8,k)/k^s: A093954 (s=1), this sequence (s=2), A251809 (s=3).

(PolyGamma[1, 1/8] + PolyGamma[1, 3/8] - PolyGamma[1, 5/8] - PolyGamma[1, 7/8])/64 // RealDigits[#, 10, 102] & // First

Equals (zeta(2,1/8) + zeta(2,3/8) - zeta(2,5/8) - zeta(2,7/8))/64, where zeta(s,a) is the Hurwitz zeta function.
Equals (polylog(2,u) + polylog(2,u^3) - polylog(2,-u) - polylog(2,-u^3))/sqrt(-8), where u = sqrt(2)/2 + i*sqrt(2)/2 is an 8th primitive root of unity, i = sqrt(-1).
Equals (polygamma(1,1/8) + polygamma(1,3/8) - polygamma(1,5/8) - polygamma(1,7/8))/64.
Equals 1/(Product_{p prime == 1 or 3 (mod 8)} (1 - 1/p^2) * Product_{p prime == 5 or 7 (mod 8)} (1 + 1/p^2)). - Amiram Eldar, Dec 17 2023

A328723 Decimal expansion of Sum_{k>=1} Kronecker(5,k)/k^3.

Original entry on oeis.org

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

Offset: 0

Jianing Song, Nov 19 2019

Let Chi() be a primitive character modulo d, the so-called Dirichlet L-series L(s,Chi) is the analytic continuation (see the functional equations involving L(s,Chi) in the MathWorld link entitled Dirichlet L-Series) of the sum Sum_{k>=1} Chi(k)/k^s, Re(s)>0 (if d = 1, the sum converges requires Re(s)>1).
If s != 1, we can represent L(s,Chi) in terms of the Hurwitz zeta function by L(s,Chi) = (Sum_{k=1..d} Chi(k)*zeta(s,k/d))/d^s.
L(s,Chi) can also be represented in terms of the polylog function by L(s,Chi) = (Sum_{k=1..d} Chi'(k)*polylog(s,u^k))/(Sum_{k=1..d} Chi'(k)*u^k), where Chi' is the complex conjugate of Chi, u is any primitive d-th root of unity.
If m is a positive integer, we have L(m,Chi) = (Sum_{k=1..d} Chi(k)*polygamma(m-1,k/d))/((-d)^m*(m-1)!).
In this sequence we have Chi = A080891 and s = 3.

			1 - 1/2^3 - 1/3^3 + 1/4^3 + 1/6^3 - 1/7^3 - 1/8^3 + 1/9^3 + ... = 0.8548247666...

Steven R. Finch, Mathematical Constants II, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 99.
Eric Weisstein's World of Mathematics, Dirichlet L-Series.
Eric Weisstein's World of Mathematics, Polygamma Function.

Cf. A080891.
Decimal expansion of Sum_{k>=1} Kronecker(d,k)/k^3, where d is a fundamental discriminant: A251809 (d=-8), A327135 (d=-7), A153071 (d=-4), A129404 (d=-3), A002117 (d=1), this sequence (d=5), A329715 (d=8), A329716 (d=12).
Decimal expansion of Sum_{k>=1} Kronecker(5,k)/k^s: A086466 (s=1), A328717 (s=2), this sequence (s=3).

(PolyGamma[2, 1/5] - PolyGamma[2, 2/5] - PolyGamma[2, 3/5] + PolyGamma[2, 4/5])/(-250) // RealDigits[#, 10, 102] & // First

Equals (zeta(3,1/5) - zeta(3,2/5) - zeta(3,3/5) + zeta(3,4/5))/25, where zeta(s,a) is the Hurwitz zeta function.
Equals (polylog(3,u) - polylog(3,u^2) - polylog(3,u^3) + polylog(3,u^4))/sqrt(5), where u = exp(2*Pi*i/5) is a 5th primitive root of unity, i = sqrt(-1).
Equals (polygamma(2,1/5) - polygamma(2,2/5) - polygamma(2,3/5) - polygamma(2,4/5))/(-250).
Equals 1/(Product_{p prime == 1 or 4 (mod 5)} (1 - 1/p^3) * Product_{p prime == 2 or 3 (mod 5)} (1 + 1/p^3)). - Amiram Eldar, Dec 17 2023

A134080 Expansion of (f(-q^5)^5 / f(-q) + f(q^5)^5 / f(q)) / 2 in powers of q^2 where f() is a Ramanujan theta function.

Original entry on oeis.org

1, 2, 5, 6, 7, 12, 12, 10, 16, 20, 12, 22, 25, 20, 30, 32, 24, 30, 36, 24, 42, 42, 35, 46, 43, 32, 52, 60, 40, 60, 62, 42, 60, 66, 44, 72, 72, 50, 72, 80, 61, 82, 80, 60, 90, 72, 64, 100, 96, 84, 102, 102, 60, 106, 110, 72, 112, 110, 84, 96, 133, 84, 125, 126

Offset: 0

Michael Somos, Oct 07 2007

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

			G.f. = 1 + 2*x + 5*x^2 + 6*x^3 + 7*x^4 + 12*x^5 + 12*x^6 + 10*x^7 + 16*x^8 + ...
G.f. = q + 2*q^3 + 5*q^5 + 6*q^7 + 7*q^9 + 12*q^11 + 12*q^13 + 10*q^15 + 16*q^17 + ...

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

Cf. A053723, A110712, A129303, A138483, A138512, A138557, A328717.

Cf. A000122, A000700, A010054, A121373.

a[ n_] := With[ {m = 2 n + 1}, If[ m < 1, 0, Sum[ m/d KroneckerSymbol[ 5, d], {d, Divisors @ m}]]]; (* Michael Somos, Jun 14 2014 *)

{a(n) = if( n<0, 0, n = 2*n + 1 ; sumdiv(n, d, kronecker( 5, d) * n / d)) };

Expansion of ( phi(x^5) * psi(x^2) + x * phi(x) * psi(x^10) ) * f(-x^5) * phi(-x^5) / chi(-x) in powers of x where phi(), psi(), chi(), f() are Ramanujan theta functions.
a(n) = b(2*n + 1) where b() is multiplicative with b(2^e) = 0^e, b(5^e) = 5^e, b(p^e) = (p^(e+1) - 1) / (p - 1) if p == 1, 9 (mod 10), b(p^e) = (p^(e+1)  + (-1)^e) / (p + 1) if p == 3, 7 (mod 10).
a(n) = A053723(2*n) = A110712(2*n + 1) = A129303(2*n + 1) = A138483(2*n + 1) = A138512(2*n + 1) = A138557(2*n + 1).
Sum_{k=1..n} a(k) ~ c * n^2 / 2, where c = (5/2) * A328717 = 2*Pi^2/(5*sqrt(5)) = 1.7655285081... . - Amiram Eldar, Nov 23 2023

A138512 Expansion of q * f(q^5)^5 / f(q) in powers of q where f() is a Ramanujan theta function.

Original entry on oeis.org

1, -1, 2, -3, 5, -2, 6, -5, 7, -5, 12, -6, 12, -6, 10, -11, 16, -7, 20, -15, 12, -12, 22, -10, 25, -12, 20, -18, 30, -10, 32, -21, 24, -16, 30, -21, 36, -20, 24, -25, 42, -12, 42, -36, 35, -22, 46, -22, 43, -25, 32, -36, 52, -20, 60, -30, 40, -30, 60, -30, 62

Offset: 1

Michael Somos, Mar 21 2008

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

			G.f. = q - q^2 + 2*q^3 - 3*q^4 + 5*q^5 - 2*q^6 + 6*q^7 - 5*q^8 + 7*q^9 - 5*q^10 + ...

G. C. Greubel, Table of n, a(n) for n = 1..1000
Michael Somos, Introduction to Ramanujan theta functions, 2019.
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions.

Cf. A053723, A134080, A138506, A328717.

Cf. A000122, A000700, A010054, A121373.

a[ n_] := SeriesCoefficient[ q QPochhammer[ -q^5]^5 / QPochhammer[ -q], {q, 0, n}]; (* Michael Somos, Sep 25 2015 *)
a[ n_] := If[ n < 1, 0, -(-1)^n Sum[ n/d KroneckerSymbol[ 5, d], { d, Divisors @ n}]]; (* Michael Somos, Sep 25 2015 *)

{a(n) = if( n<1, 0, -(-1)^n * sumdiv(n, d, d * kronecker(5, n/d)))};

{a(n) = my(A, p, e, f); if( n<1, 0, A = factor(n); prod(k=1, matsize(A)[1], [p, e] = A[k, ]; if( p==2, -(2^(e+1) - (-1)^(e+1)) / 3, f = kronecker(5, p); (p^(e+1) - f^(e+1)) / (p - f) ))) };

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

Expansion of eta(q) * eta(q^4) * eta(q^10)^15 / (eta(q^2)^3 * eta(q^5)^5 * eta(q^20)^5) in powers of q.
Euler transform of period 20 sequence [ -1, 2, -1, 1, 4, 2, -1, 1, -1, -8, -1, 1, -1, 2, 4, 1, -1, 2, -1, -4, ...].
a(n) is multiplicative with a(2^e) = -(2^(e+1) - (-1)^(e+1)) / 3 if e>0, a(5^e) = 5^e, a(p^e) = (p^(e+1) - 1) / (p - 1) if p == 1, 4 (mod 5), a(p^e) = (p^(e+1) + (-1)^e) / (p + 1) if p == 2, 3 (mod 5).
a(n) = -(-1)^n * A053723(n-1).
From Michael Somos, Sep 25 2015: (Start)
G.f. is a period 1 Fourier series which satisfies f(-1 / (20 t)) = (16/5)^(1/2) (t/i)^2 g(t) where q = exp(2 Pi i t) and g() is the g.f. for A138506.
a(2*n + 1) = A134080(n). (End)
Sum_{k=1..n} a(k) ~ c * n^2, where c = A328717 / 8 = 0.0882764... . - Amiram Eldar, Nov 23 2023

cp's OEIS Frontend

A053723 Number of 5-core partitions of n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

PARI

PARI

Formula

A086466 Decimal expansion of 2*sqrt(5)/5 arccsch(2).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A328895 Decimal expansion of Sum_{k>=1} Kronecker(8,k)/k^2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A309710 Decimal expansion of Sum_{k>=1} Kronecker(-8,k)/k^2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A328723 Decimal expansion of Sum_{k>=1} Kronecker(5,k)/k^3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A134080 Expansion of (f(-q^5)^5 / f(-q) + f(q^5)^5 / f(q)) / 2 in powers of q^2 where f() is a Ramanujan theta function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A138512 Expansion of q * f(q^5)^5 / f(q) in powers of q where f() is a Ramanujan theta function.

Views

Author

Keywords

Comments