cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A053263 Coefficients of the '5th-order' mock theta function chi_1(q).

Original entry on oeis.org

1, 2, 2, 3, 3, 4, 4, 6, 5, 7, 8, 9, 9, 12, 12, 15, 15, 18, 19, 23, 23, 27, 30, 33, 34, 41, 42, 49, 51, 57, 61, 69, 72, 81, 87, 96, 100, 113, 119, 132, 140, 153, 163, 180, 188, 208, 221, 240, 253, 278, 294, 319, 339, 366, 388, 422, 443, 481, 510, 549, 580, 626, 662
Offset: 0

Views

Author

Dean Hickerson, Dec 19 1999

Keywords

Comments

The rank of a partition is its largest part minus the number of parts.
Number of partitions of n such that 2*(least part) > greatest part. - Clark Kimberling, Feb 16 2014
Also the number of partitions of n with the same median as maximum. These are conjugate to the partitions described above. For minimum instead of maximum we have A361860. - Gus Wiseman, Apr 23 2023

Examples

			From _Gus Wiseman_, Apr 20 2023: (Start)
The a(1) = 1 through a(8) = 6 partitions such that 2*(minimum) > (maximum):
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (32)     (33)      (43)       (44)
                    (1111)  (11111)  (222)     (322)      (53)
                                     (111111)  (1111111)  (332)
                                                          (2222)
                                                          (11111111)
The a(1) = 1 through a(8) = 6 partitions such that (median) = (maximum):
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (221)    (33)      (331)      (44)
                    (1111)  (11111)  (222)     (2221)     (332)
                                     (111111)  (1111111)  (2222)
                                                          (22211)
                                                          (11111111)
(End)

References

  • Srinivasa Ramanujan, Collected Papers, Chelsea, New York, 1962, pp. 354-355
  • Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, pp. 20, 25

Links

Crossrefs

Other '5th-order' mock theta functions are at A053256, A053257, A053258, A053259, A053260, A053261, A053262, A053264, A053265, A053266, A053267.
Cf. A047993, A240874, A361800, A361849 (ranks A361856), A361860.
A000041 counts integer partitions, strict A000009, odd-length A027193.
A359893 and A359901 count partitions by median.
Cf. A013580, A079309, A237753, A237757, A237800, A361848, A361858, A361859.

Programs

  • Mathematica
    1+Series[Sum[q^(2n+1)(1+q^n)/Product[1-q^k, {k, n+1, 2n+1}], {n, 0, 49}], {q, 0, 100}]
(* Also: *)
Table[Count[ IntegerPartitions[n], p_ /; 2 Min[p] > Max[p]], {n, 40}]
(* Clark Kimberling, Feb 16 2014 *)
nmax = 100; CoefficientList[Series[1 + Sum[x^(2*k+1)*(1+x^k) / Product[1-x^j, {j, k+1, 2*k+1}], {k, 0, Floor[nmax/2]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 12 2019 *)

Formula

G.f.: chi_1(q) = Sum_{n>=0} q^n/((1-q^(n+1))(1-q^(n+2))...(1-q^(2n+1))).
G.f.: chi_1(q) = 1 + Sum_{n>=0} q^(2n+1) (1+q^n)/((1-q^(n+1))(1-q^(n+2))...(1-q^(2n+1))).
a(n) is twice the number of partitions of 5n+3 with rank == 2 (mod 5) minus number with rank == 0 or 1 (mod 5).
a(n) - 1 is the number of partitions of n with unique smallest part and all other parts <= one plus twice the smallest part.
a(n) ~ sqrt(phi/2) * exp(Pi*sqrt(2*n/15)) / (5^(1/4)*sqrt(n)), where phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Jun 16 2019

A362050 Numbers whose prime indices satisfy: (length) = 2*(median).

Original entry on oeis.org

4, 54, 81, 90, 100, 126, 135, 140, 189, 198, 220, 234, 260, 297, 306, 340, 342, 351, 380, 414, 459, 460, 513, 522, 558, 580, 620, 621, 666, 738, 740, 774, 783, 820, 837, 846, 860, 940, 954, 999, 1060, 1062, 1098, 1107, 1161, 1180, 1206, 1220, 1269, 1278, 1314
Offset: 1

Views

Author

Gus Wiseman, Apr 20 2023

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
All terms are squarefree.

Examples

			The terms together with their prime indices begin:
    4: {1,1}
   54: {1,2,2,2}
   81: {2,2,2,2}
   90: {1,2,2,3}
  100: {1,1,3,3}
  126: {1,2,2,4}
  135: {2,2,2,3}
  140: {1,1,3,4}
  189: {2,2,2,4}
  198: {1,2,2,5}

Crossrefs

The LHS is A001222 (bigomega).
The RHS is A360005 (twice median).
Before multiplying the median by 2, A361800 counts partitions of this type.
For maximum instead of length we have A361856, counted by A361849.
Partitions of this type are counted by A362049.
A061395 gives greatest prime index, least A055396.
A112798 lists prime indices, sum A056239.
A326567/A326568 gives mean of prime indices.
Cf. A067801, A106529, A111907, A255201, A316413, A361868, A361908.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],PrimeOmega[#]==2*Median[prix[#]]&]

A363223 Numbers with bigomega equal to median prime index.

Original entry on oeis.org

2, 9, 10, 50, 70, 75, 105, 110, 125, 130, 165, 170, 175, 190, 195, 230, 255, 275, 285, 290, 310, 325, 345, 370, 410, 425, 430, 435, 465, 470, 475, 530, 555, 575, 590, 610, 615, 645, 670, 686, 705, 710, 725, 730, 775, 790, 795, 830, 885, 890, 915, 925, 970
Offset: 1

Views

Author

Gus Wiseman, May 29 2023

Keywords

Comments

The median of a multiset is either the middle part (for odd length), or the average of the two middle parts (for even length).
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The terms together with their prime indices begin:
    2: {1}
    9: {2,2}
   10: {1,3}
   50: {1,3,3}
   70: {1,3,4}
   75: {2,3,3}
  105: {2,3,4}
  110: {1,3,5}
  125: {3,3,3}
  130: {1,3,6}
  165: {2,3,5}
  170: {1,3,7}
  175: {3,3,4}

Crossrefs

For maximum instead of median we have A106529, counted by A047993.
For minimum instead of median we have A324522, counted by A006141.
Partitions of this type are counted by A361800.
For twice median we have A362050, counted by A362049.
For maximum instead of length we have A362621, counted by A053263.
A000975 counts subsets with integer median.
A027746 lists prime factors, A112798 indices, length A001222, sum A056239.
A325347 counts partitions with integer median, complement A307683.
A359893 and A359901 count partitions by median.
A359908 lists numbers whose prime indices have integer median.
A360005 gives twice median of prime indices.
Cf. A000040, A013580, A079309, A240219, A327473, A327476, A361860, A362619, A362622, A362980.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],PrimeOmega[#]==Median[prix[#]]&]

Formula

2*A001222(a(n)) = A360005(a(n)).
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.