A122135 -id:A122135 - cp's OEIS frontend

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

1, 1, 2, 2, 3, 3, 5, 4, 7, 7, 10, 9, 15, 13, 21, 19, 28, 26, 40, 35, 54, 49, 72, 64, 97, 87, 128, 115, 167, 151, 220, 195, 284, 256, 366, 328, 469, 421, 598, 537, 757, 682, 959, 859, 1204, 1085, 1507, 1354, 1880, 1694, 2338, 2104, 2892, 2609, 3574, 3218, 4394

Offset: 0

Gus Wiseman, Jan 31 2022

nonn

These are partitions of n with all even multiplicities (or run-lengths), except possibly the last.

			The a(1) = 1 through a(9) = 7 partitions:
  1  2   3    4     5      6       7        8         9
     11  111  22    221    33      331      44        333
              1111  11111  222     22111    332       441
                           2211    1111111  2222      22221
                           111111           3311      33111
                                            221111    2211111
                                            11111111  111111111

The ordered version (compositions) is A016116.
The even-length case is A035363.
A reverse version is A096441, both A349060.
The version for unequal instead of equal is A122129, even-length A351008.
The version for even instead of odd indices is A351003, even-length A351012.
The strict version is A351005, opposite A351006, even-length A035457.
Cf. A000070, A018819, A027383, A088218, A067661, A101417, A122134, A122135, A350842, A351007.

Table[Length[Select[IntegerPartitions[n],And@@Table[#[[i]]==#[[i+1]],{i,1,Length[#]-1,2}]&]],{n,0,30}]

A069911 Expansion of Product_{i in A069909} 1/(1 - x^i).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 3, 4, 5, 6, 8, 9, 12, 14, 17, 20, 25, 29, 35, 41, 49, 57, 68, 78, 93, 107, 125, 144, 168, 192, 223, 255, 294, 335, 385, 437, 501, 568, 647, 732, 833, 939, 1065, 1199, 1355, 1523, 1717, 1925, 2166, 2425, 2720, 3040, 3405, 3797, 4244, 4727, 5272

Offset: 0

N. J. A. Sloane, May 05 2002

nonn

Arises from an identity of Slater's.
Number of partitions of 2*n+1 into distinct odd parts. - Vladeta Jovovic, May 08 2003
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
Also number of partitions of 2n+1 such that if k is the largest part, then k occurs an odd number of times and each integer from 1 to k-1 occurs a positive even number of times. Example: a(4)=2 because we have [3,2,2,1,1] and [1,1,1,1,1,1,1,1,1]. - Emeric Deutsch, Apr 16 2006
Difference between number of partitions of 2n+1 with an odd number of parts and those with an even number of parts (this is a consequence of Jovovic's comment above). - George Beck, May 22 2016
Let b(k) be the convolution inverse of A035457, k=1, 2, 3, ...; then a(n) = -b(4n+3), n = 0, 1, 2, 3, ... (conjectured). - George Beck, Aug 19 2017

			G.f. = 1 + x + x^2 + x^3 + 2*x^4 + 2*x^5 + 3*x^6 + 4*x^7 + 5*x^8 + 6*x^9 + ...
G.f. = q^23 + q^71 + q^119 + q^167 + 2*q^215 + 2*q^263 + 3*q^311 + 4*q^359 + ...

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
G. E. Andrews et al., q-Engel series expansions and Slater's identities Quaestiones Math., 24 (2001), 403-416.
M. D. Hirschhorn, Some partition theorems of the Rogers-Ramanujan type, J. Combin. Theory Ser. A 27 (1979), no. 1, 33--37. MR0541341 (80j:05010). See Theorem 3. [From _N. J. A. Sloane_, Mar 19 2012]
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
M. P. Zaletel and R. S. K. Mong, Exact Matrix Product States for Quantum Hall Wave Functions, arXiv preprint arXiv:1208.4862 [cond-mat.str-el], 2012. - From _N. J. A. Sloane_, Dec 25 2012

Cf. A000700, A035457, A069908, A069909, A069910, A081362, A122129, A122135.

h:=product(1+x^(2*i-1),i=1..60): hser:=series(h,x=0,120): seq(coeff(hser,x^(2*n+1)),n=0..56); # Emeric Deutsch, Apr 16 2006

H[x_] := x*QPochhammer[-1/x, x^2]/(1 + x); s = (H[Sqrt[x]] - H[-Sqrt[x]]) / (2*Sqrt[x]) + O[x]^60; CoefficientList[s, x] (* Jean-François Alcover, Nov 14 2015, after Emeric Deutsch *)

{a(n) = my(A); if( n<0, 0, n=2*n+1; A = x * O(x^n); -polcoeff( eta(x + A) / eta(x^2 + A), n))}; /* Michael Somos, Jul 18 2006 */

a(n) = A000700(2n+1) = -A081362(2n+1).
Euler transform of period 16 sequence [ 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, ...]. - Michael Somos, Apr 11 2004
G.f.: ( H(sqrt(x)) - H(-sqrt(x)) ) / (2*sqrt(x)), where H(x)=prod(i>=1, 1+x^(2*i-1) ). - Emeric Deutsch, Apr 16 2006
a(n) ~ exp(Pi*sqrt(n/3)) / (2^(5/2) * 3^(1/4) * n^(3/4)). - Vaclav Kotesovec, Nov 14 2015
Expansion of f(x, x^7) / f(-x^2) where f(, ) is Ramanujan's general theta function. - Michael Somos, Jun 04 2016

A351008 Alternately strict partitions. Number of even-length integer partitions y of n such that y_i > y_{i+1} for all odd i.

Original entry on oeis.org

1, 0, 0, 1, 1, 2, 2, 3, 4, 5, 6, 8, 10, 12, 15, 19, 23, 28, 34, 41, 50, 60, 71, 85, 102, 120, 142, 168, 197, 231, 271, 316, 369, 429, 497, 577, 668, 770, 888, 1023, 1175, 1348, 1545, 1767, 2020, 2306, 2626, 2990, 3401, 3860, 4379, 4963, 5616, 6350, 7173, 8093

Offset: 0

Gus Wiseman, Jan 31 2022

Write the series in the g.f. given below as Sum_{k >= 0} q^(1 + 3 + 5 + ... + 2*k-1 + 2*k)/Product_{i = 1..2*k} 1 - q^i. Since 1/Product_{i = 1..2*k} 1 - q^i is the g.f. for partitions with parts <= 2*k, we see that the k-th summand of the series is the g.f. for partitions with largest part 2*k in which every odd number less than 2*k appears at least once as a part. The partitions of this type are conjugate to (and hence equinumerous with) the partitions (y_1, y_2, ..., y_{2*k}) of even length 2*k having strict decrease y_i > y_(i+1) for all odd i < 2*k. - Peter Bala, Jan 02 2024

			The a(3) = 1 through a(13) = 12 partitions (A..C = 10..12):
  21   31   32   42   43   53     54     64     65     75     76
            41   51   52   62     63     73     74     84     85
                      61   71     72     82     83     93     94
                           3221   81     91     92     A2     A3
                                  4221   4321   A1     B1     B2
                                         5221   4331   4332   C1
                                                5321   5331   5332
                                                6221   5421   5431
                                                       6321   6331
                                                       7221   6421
                                                              7321
                                                              8221
a(10) = 6: the six partitions 64, 73, 82, 91, 4321 and 5221 listed above have conjugate partitions 222211, 2221111, 22111111, 211111111, 4321 and 43111, These are the partitions of 10 with largest part L even and such that every odd number less than L appears at least once as a part. - _Peter Bala_, Jan 02 2024

The version for equal instead of unequal is A035363.
The alternately equal and unequal version is A035457, any length A351005.
This is the even-length case of A122129, opposite A122135.
The odd-length version appears to be A122130.
The alternately unequal and equal version is A351007, any length A351006.
Cf. A000070, A003242, A018819, A027383, A053251, A122134, A350842, A350844, A351003, A351004, A351012.

series(add(q^(n*(n+2))/mul(1 - q^k, k = 1..2*n), n = 0..10), q, 141):
seq(coeftayl(%, q = 0, n), n = 0..140); # Peter Bala, Jan 03 2025

Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&And@@Table[#[[i]]!=#[[i+1]],{i,1,Length[#]-1,2}]&]],{n,0,30}]

Conjecture: a(n+1) = A122129(n+1) - A122130(n). - Gus Wiseman, Feb 21 2022

G.f.: Sum_{n >= 0} q^(n*(n+2))/Product_{k = 1..2*n} 1 - q^k = 1 + q^3 + q^4 + 2*q^5 + 2*q^6 + 3*q^7 + 4*q^8 + 5*q^9 + 6*q^10 + .... - Peter Bala, Jan 02 2024

A351012 Number of even-length integer partitions y of n such that y_i = y_{i+1} for all even i.

Original entry on oeis.org

1, 0, 1, 1, 3, 3, 5, 6, 9, 10, 13, 16, 21, 24, 29, 35, 43, 50, 60, 70, 83, 97, 113, 132, 156, 178, 206, 239, 275, 316, 365, 416, 477, 545, 620, 706, 806, 912, 1034, 1173, 1326, 1496, 1691, 1902, 2141, 2410, 2704, 3034, 3406, 3808, 4261, 4765, 5317, 5932, 6617

Offset: 0

Gus Wiseman, Feb 03 2022

nonn

			The a(2) = 1 through a(8) = 9 partitions:
  (11)  (21)  (22)    (32)    (33)      (43)      (44)
              (31)    (41)    (42)      (52)      (53)
              (1111)  (2111)  (51)      (61)      (62)
                              (3111)    (2221)    (71)
                              (111111)  (4111)    (2222)
                                        (211111)  (3221)
                                                  (5111)
                                                  (311111)
                                                  (11111111)

The ordered version (compositions) is A027383(n-2).
For odd instead of even indices we have A035363, any length A351004.
The version for unequal parts appears to be A122134, any length A122135.
This is the even-length case of A351003.
Requiring inequalities at odd positions gives A351007, any length A351006.
Cf. A000070, A018819, A035457, A088218, A101417, A122129, A350837, A351005, A351008.

Table[Length[Select[IntegerPartitions[n],EvenQ[Length[#]]&&And@@Table[#[[i]]==#[[i+1]],{i,2,Length[#]-1,2}]&]],{n,0,30}]

A122130 Expansion of f(-x^4, -x^16) / psi(-x) in powers of x where psi() is a Ramanujan theta function and f(, ) is Ramanujan's general theta function.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 4, 5, 7, 9, 11, 14, 18, 22, 27, 34, 41, 50, 61, 73, 88, 106, 126, 150, 179, 211, 249, 294, 345, 404, 473, 551, 642, 747, 865, 1002, 1159, 1336, 1539, 1771, 2033, 2331, 2670, 3052, 3485, 3976, 4527, 5150, 5854, 6642, 7530, 8529, 9647, 10902

Offset: 0

Michael Somos, Aug 21 2006, corrected Aug 21 2006

Generating function arises naturally in Rodney Baxter's solution of the Hard Hexagon Model according to George Andrews.
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
From Gus Wiseman, Feb 19 2022: (Start)
This appears to be the number of odd-length alternately strict integer partitions of n + 1, i.e., partitions y such that y_i != y_{i+1} for all odd i. For example, the a(1) = 1 through a(9) = 7 partitions are:
  (1)  (2)  (3)  (4)    (5)    (6)    (7)    (8)    (9)
                 (211)  (311)  (321)  (322)  (422)  (432)
                               (411)  (421)  (431)  (522)
                                      (511)  (521)  (531)
                                             (611)  (621)
                                                    (711)
                                                    (32211)
The even-length version is A351008. Including even-length partitions appears to give A122129. Swapping strictly and weakly decreasing relations gives A351595. The constant instead of strict version is A351594. (End)
Wiseman's first conjecture above was proved by Connor, Proposition 2. - Peter Bala, Dec 22 2024

			G.f. = 1 + x + x^2 + 2*x^3 + 2*x^4 + 3*x^5 + 4*x^6 + 5*x^7 + 7*x^8 + 9*x^9 + ...
G.f. = q^31 + q^71 + q^111 + 2*q^151 + 2*q^191 + 3*q^231 + 4*q^271 + 5*q^311 + ...

G. E. Andrews, R. Askey and R. Roy, Special Functions, Cambridge University Press, 1999; Exercise 6(b), p. 591.
G. E. Andrews, q-series, CBMS Regional Conference Series in Mathematics, 66, Amer. Math. Soc. 1986, see p. 8, Eq. (1.8). MR0858826 (88b:11063)

Michael Somos, Introduction to Ramanujan theta functions
Willard G. Connor, Partition Theorems Related to Some Identities of Rogers and Watson, Transactions of the American Mathematical Society, Vol. 214 (Dec., 1975), pp. 95-111.
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A035363, A035457, A053251, A122129, A122134, A122135, A351005, A351008.

nmax = 100; CoefficientList[Series[Product[1/((1-x^(2*k-1))*(1-x^(20*k-8))*(1-x^(20*k-12))), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 30 2015 *)
a[ n_] := SeriesCoefficient[ 1 / (QPochhammer[x, x^2] QPochhammer[x^8, x^20] QPochhammer[x^12, x^20]), {x, 0, n}]; (* Michael Somos, Nov 12 2016 *)
a[ n_] := SeriesCoefficient[ Sqrt[2] x^(1/8) QPochhammer[ x^4, x^20] QPochhammer[ x^16, x^20] QPochhammer[x^20] / EllipticTheta[ 2, Pi/4, x^(1/2)], {x, 0, n}] // Simplify; (* Michael Somos, Nov 12 2016 *)

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

Expansion of f(x, x^9) / f(-x^2, -x^3) in powers of x where f(, ) is Ramanujan's general theta function. - Michael Somos, Nov 12 2016
Expansion of f(-x^2) * f(-x^20) / (f(-x) * f(-x^8, -x^12)) in powers of x where f(-x) : = f(-x, -x^2) and f(, ) is Ramanujan's general theta function.
Euler transform of period 20 sequence [ 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, ...].
G.f.: Sum_{k>0} x^(k^2 - 1) / ((1 - x) * (1 - x^2) * ... * (1 - x^(2k-1))).
G.f.: 1/(Product_{k>0} (1-x^(2k-1))(1-x^(20k-8))(1-x^(20k-12))).
a(n) ~ (3-sqrt(5))^(1/4) * exp(Pi*sqrt(2*n/5)) / (4*sqrt(5)*n^(3/4)). - Vaclav Kotesovec, Aug 30 2015

A351595 Number of odd-length integer partitions y of n such that y_i > y_{i+1} for all even i.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 2, 3, 4, 5, 6, 9, 10, 13, 16, 20, 24, 30, 35, 44, 52, 63, 74, 90, 105, 126, 148, 175, 204, 242, 280, 330, 382, 446, 515, 600, 690, 800, 919, 1060, 1214, 1398, 1595, 1830, 2086, 2384, 2711, 3092, 3506, 3988, 4516, 5122, 5788, 6552, 7388, 8345

Offset: 0

Gus Wiseman, Feb 25 2022

nonn

			The a(1) = 1 through a(12) = 10 partitions (A..C = 10..12):
  1   2   3   4   5     6     7     8     9     A     B       C
                  221   321   331   332   432   442   443     543
                              421   431   441   532   542     552
                                    521   531   541   551     642
                                          621   631   632     651
                                                721   641     732
                                                      731     741
                                                      821     831
                                                      33221   921
                                                              43221

The ordered version (compositions) is A000213 shifted right once.
All odd-length partitions are counted by A027193.
The opposite appears to be A122130, even-length A351008, any length A122129.
This appears to be the odd-length case of A122135, even-length A122134.
The case that is constant at odd indices:
- any length: A351005
- odd length: A351593
- even length: A035457
- opposite any length: A351006
- opposite odd length: A053251
- opposite even length: A351007
For equality instead of inequality:
- any length: A351003
- odd-length: A000009 (except at 0)
- even-length: A351012
- opposite any length: A351004
- opposite odd-length: A351594
- opposite even-length: A035363
Cf. A000041, A000070, A003242, A027383, A236559, A236914, A350842.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&And@@Table[#[[i]]>#[[i+1]],{i,2,Length[#]-1,2}]&]],{n,0,30}]

A351593 Number of odd-length integer partitions of n into parts that are alternately equal and strictly decreasing.

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 4, 2, 4, 3, 5, 4, 6, 4, 8, 6, 9, 6, 12, 7, 14, 10, 16, 11, 20, 13, 24, 16, 28, 18, 34, 21, 40, 26, 46, 30, 56, 34, 64, 41, 75, 48, 88, 54, 102, 64, 118, 73, 138, 84, 159, 98, 182, 112, 210, 128, 242, 148, 276, 168, 318

Offset: 0

Gus Wiseman, Feb 23 2022

nonn

Also odd-length partitions whose run-lengths are all 2's, except for the last, which is 1.

			The a(1) = 1 through a(15) = 6 partitions (A..F = 10..15):
  1  2  3  4  5    6  7    8    9    A    B      C    D      E    F
              221     331  332  441  442  443    552  553    554  663
                                          551         661    662  771
                                          33221       44221       44331
                                                                  55221

The even-length ordered version is A003242, ranked by A351010.
The opposite version is A053251, even-length A351007, any length A351006.
This is the odd-length case of A351005, even-length A035457.
With only equalities we get:
  - opposite any length: A351003
  - opposite odd-length: A000009  (except at 0)
  - opposite even-length: A351012
- any length: A351004
- odd-length: A351594
- even-length: A035363
Without equalities we get:
  - opposite any length: A122129 (apparently)
  - opposite odd-length: A122130 (apparently)
  - opposite even-length: A351008
- any length: A122135 (apparently)
- odd-length: A351595
- even-length: A122134 (apparently)
Cf. A000070, A000984, A027383, A053738, A236559, A236914, A350842, A350844.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&And@@Table[If[EvenQ[i],#[[i]]!=#[[i+1]],#[[i]]==#[[i+1]]],{i,Length[#]-1}]&]],{n,0,30}]

A351594 Number of odd-length integer partitions y of n that are alternately constant, meaning y_i = y_{i+1} for all odd i.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 2, 4, 2, 7, 3, 9, 4, 13, 6, 19, 6, 26, 10, 35, 12, 49, 16, 64, 20, 87, 27, 115, 32, 151, 44, 195, 53, 256, 69, 328, 84, 421, 108, 537, 130, 682, 167, 859, 202, 1085, 252, 1354, 305, 1694, 380, 2104, 456, 2609, 564, 3218, 676, 3968, 826, 4863

Offset: 0

Gus Wiseman, Feb 24 2022

nonn

These are partitions with all even run-lengths except for the last, which is odd.

			The a(1) = 1 through a(9) = 7 partitions:
  (1)  (2)  (3)    (4)  (5)      (6)    (7)        (8)    (9)
            (111)       (221)    (222)  (331)      (332)  (333)
                        (11111)         (22111)           (441)
                                        (1111111)         (22221)
                                                          (33111)
                                                          (2211111)
                                                          (111111111)

The ordered version (compositions) is A016116 shifted right once.
All odd-length partitions are counted by A027193.
The opposite version is A117409, even-length A351012, any length A351003.
Replacing equal with unequal relations appears to give:
- any length: A122129
- odd length: A122130
- even length: A351008
- opposite any length: A122135
- opposite odd length: A351595
- opposite even length: A122134
This is the odd-length case of A351004, even-length A035363.
The case that is also strict at even indices is:
- any length: A351005
- odd length: A351593
- even length: A035457
- opposite any length: A351006
- opposite odd length: A053251
- opposite even length: A351007
A reverse version is A096441; see also A349060.
Cf. A000009, A000041, A000070, A000984, A003242, A027383, A053738, A236559, A236914, A350842.

Table[Length[Select[IntegerPartitions[n],OddQ[Length[#]]&&And@@Table[#[[i]]==#[[i+1]],{i,1,Length[#]-1,2}]&]],{n,0,30}]

A261526 Expansion of (H(-x) / chi(-x))^2 in powers of x where chi() is a Ramanujan theta function and G() is a Rogers-Ramanujan function.

Original entry on oeis.org

1, 2, 5, 8, 14, 22, 36, 54, 83, 120, 176, 250, 356, 494, 687, 936, 1276, 1714, 2298, 3046, 4030, 5280, 6902, 8952, 11580, 14882, 19077, 24314, 30910, 39104, 49344, 62000, 77712, 97032, 120872, 150058, 185869, 229520, 282814, 347504, 426118, 521182, 636204

Offset: 0

Michael Somos, Sep 03 2015

nonn

Rogers-Ramanujan functions: G(q) (see A003114), H(q) (A003106).

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

			G.f. = 1 + 2*x + 5*x^2 + 8*x^3 + 14*x^4 + 22*x^5 + 36*x^6 + 54*x^7 + ...
G.f. = q^9 + 2*q^29 + 5*q^49 + 8*q^69 + 14*q^89 + 22*q^109 + 36*q^129 + ...

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

Cf. A122135, A147699.

a[ n_] := SeriesCoefficient[ (QPochhammer[ x, x^2] QPochhammer[ x^2, -x^5] QPochhammer[ -x^3, -x^5])^-2, {x, 0, n}];
a[ n_] := SeriesCoefficient[ Product[ (1 - x^k)^-{2, 2, 0, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 0, 2, 2, 0}[[Mod[k, 20, 1]]], {k, n}], {x, 0, n}];

{a(n) = if( n<0, 0, polcoeff( prod(k=1, n, (1 - x^k + x * O(x^n))^-[ 0, 2, 2, 0, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 0, 2, 2][k%20 + 1]), n))};

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

Euler transform of period 20 sequence [ 2, 2, 0, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 2, 2, 0, 0, 2, 2, 0, ...].
Expansion of (f(x, -x^4) / f(-x^2, -x^2))^2 = (f(x^2, x^8) / f(-x, -x^4))^2 in powers of x where f(, ) is Ramanujan's general theta function.
G.f.: (Sum_{k>=0} x^(k^2 + k) / ((1 - x) * (1 - x^2) * ... * (1 - x^(2*k+1))))^2.
a(n) = - A147699(5*n + 2).
Convolution square of A122135.

A137676 Expansion of f(-x^2, -x^3) / f(-x, -x^3) in powers of x where f(, ) is Ramanujan's general theta function.

Original entry on oeis.org

1, 1, 0, 0, 1, 1, 0, 0, 1, 2, 0, 0, 2, 2, 0, 0, 3, 3, 0, 0, 4, 4, 0, 0, 5, 6, 0, 0, 7, 7, 0, 0, 9, 10, 0, 0, 12, 12, 0, 0, 15, 16, 0, 0, 19, 20, 0, 0, 24, 26, 0, 0, 30, 31, 0, 0, 37, 40, 0, 0, 46, 48, 0, 0, 57, 60, 0, 0, 69, 72, 0, 0, 84, 89, 0, 0, 102, 106, 0

Offset: 0

Michael Somos, Feb 04 2008

nonn

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

			G.f. = 1 + x + x^4 + x^5 + x^8 + 2*x^9 + 2*x^12 + 2*x^13 + 3*x^16 + 3*x^17 + ...
G.f. = 1/q + q^9 + q^39 + q^49 + q^79 + 2*q^89 + 2*q^119 + 2*q^129 + 3*q^159 + ...

G. C. Greubel, Table of n, a(n) for n = 0..1000
G. E. Andrews, q-series, CBMS Regional Conference Series in Mathematics, 66, Amer. Math. Soc. 1986, see p. 36, Eq. (4.11). MR0858826 (88b:11063).
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

Cf. A122129, A122135.

a[ n_] := SeriesCoefficient[ QPochhammer[ x^2] / (QPochhammer[ x^4] QPochhammer[ x, x^5] QPochhammer[ x^4, x^5]), {x, 0, n}]; (* Michael Somos, Oct 08 2015 *)
a[ n_] := If[ n < 0, 0, SeriesCoefficient[ Sum[ x^(k^2) / QPochhammer[ x^4, x^4, k], {k, 0, Sqrt @ n}], {x, 0, n}]]; (* Michael Somos, Oct 08 2015 *)
a[ n_] := SeriesCoefficient[ Sqrt[2] x^(1/8) QPochhammer[ x^2, x^5] QPochhammer[ x^3, x^5] QPochhammer[ x^5] / EllipticTheta[ 2, Pi/4, x^(1/2)], {x, 0, n}]; (* Michael Somos, Oct 08 2015 *)

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

Expansion of f(-x^2) * f(-x^5) / (f(-x^4) * f(-x, -x^4)) in powers of x where f(, ) is Ramanujan's general theta function.
Expansion of (f(-x^13, -x^17) + x * f(-x^7, -x^23)) / f(-x^4) in powers of x where f(, ) is Ramanujan's general theta function.
Euler transform of period 20 sequence [ 1, -1, 0, 1, 0, 0, 0, 0, 1, -1, 1, 0, 0, 0, 0, 1, 0, -1, 1, 0, ...].
G.f.: Sum_{k>=0} x^k^2 / (Product_{j=1..k} 1 - x^(4*j)).
a(4*n) = A122129(n). a(4*n + 1) = A122135(n). a(4*n + 2) = a(4*n + 3) = 0.
G.f.: (Sum_{k in Z} (-1)^k^2 * x^(k * (5*k + 1) / 2)) / (Sum_{k in Z} (-1)^k^2 * x^(k * (2*k + 1))). - Michael Somos, Oct 08 2015

cp's OEIS Frontend

A351004 Alternately constant partitions. Number of integer partitions y of n such that y_i = y_{i+1} for all odd i.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A069911 Expansion of Product_{i in A069909} 1/(1 - x^i).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A351008 Alternately strict partitions. Number of even-length integer partitions y of n such that y_i > y_{i+1} for all odd i.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Formula

A351012 Number of even-length integer partitions y of n such that y_i = y_{i+1} for all even i.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A122130 Expansion of f(-x^4, -x^16) / psi(-x) in powers of x where psi() is a Ramanujan theta function and f(, ) is Ramanujan's general theta function.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A351595 Number of odd-length integer partitions y of n such that y_i > y_{i+1} for all even i.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A351593 Number of odd-length integer partitions of n into parts that are alternately equal and strictly decreasing.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A351594 Number of odd-length integer partitions y of n that are alternately constant, meaning y_i = y_{i+1} for all odd i.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs