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.

Previous Showing 11-14 of 14 results.

A360252 Numbers for which the prime indices have greater mean than the distinct prime indices.

Original entry on oeis.org

18, 50, 54, 75, 98, 108, 147, 150, 162, 242, 245, 250, 294, 324, 338, 350, 363, 375, 450, 486, 490, 500, 507, 578, 588, 605, 648, 686, 722, 726, 735, 750, 845, 847, 867, 882, 972, 1014, 1029, 1050, 1058, 1078, 1083, 1125, 1183, 1210, 1250, 1274, 1350, 1372
Offset: 1

Views

Author

Gus Wiseman, Feb 09 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.

Examples

			The terms together with their prime indices begin:
    18: {1,2,2}
    50: {1,3,3}
    54: {1,2,2,2}
    75: {2,3,3}
    98: {1,4,4}
   108: {1,1,2,2,2}
   147: {2,4,4}
   150: {1,2,3,3}
   162: {1,2,2,2,2}
   242: {1,5,5}
   245: {3,4,4}
   250: {1,3,3,3}
   294: {1,2,4,4}
   324: {1,1,2,2,2,2}
For example, the prime indices of 350 are {1,3,3,4} with mean 11/4, and the distinct prime indices are {1,3,4} with mean 8/3, so 350 is in the sequence.

Crossrefs

For unequal instead of greater we have A360246, counted by A360242.
For equal instead of greater we have A360247, counted by A360243.
These partitions are counted by A360250.
For less instead of greater we have A360253, counted by A360251.
A112798 lists prime indices, length A001222, sum A056239.
A316413 lists numbers whose indices have integer mean, distinct A326621.
A326567/A326568 gives mean of prime indices.
A326619/A326620 gives mean of distinct prime indices.
Cf. A000975, A051293, A058398, A067340, A067538, A324570, A327482, A359903, A360005, A360241, A360248.

Programs

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

A360253 Numbers for which the prime indices have lesser mean than the distinct prime indices.

Original entry on oeis.org

12, 20, 24, 28, 40, 44, 45, 48, 52, 56, 60, 63, 68, 72, 76, 80, 84, 88, 92, 96, 99, 104, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 164, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192, 198, 200, 204, 207, 208, 212, 220
Offset: 1

Views

Author

Gus Wiseman, Feb 09 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.

Examples

			The terms together with their prime indices begin:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   68: {1,1,7}
   72: {1,1,1,2,2}
For example, the prime indices of 350 are {1,3,3,4} with mean 11/4, and the distinct prime indices are {1,3,4} with mean 8/3, so 350 is not in the sequence.

Crossrefs

These partitions are counted by A360251.
For unequal instead of less we have A360246, counted by A360242.
For equal instead of less we have A360247, counted by A360243.
For greater instead of less we have A360252, counted by A360250.
A112798 lists prime indices, length A001222, sum A056239.
A316413 lists numbers whose indices have integer mean, distinct A326621.
A326567/A326568 gives mean of prime indices.
A326619/A326620 gives mean of distinct prime indices.
Cf. A000975, A051293, A058398, A067340, A067538, A324570, A327482, A359903, A360005, A360241, A360248.

Programs

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

A360455 Number of integer partitions of n for which the distinct parts have the same median as the multiplicities.

Original entry on oeis.org

1, 1, 0, 0, 2, 1, 1, 0, 2, 2, 5, 8, 10, 14, 20, 19, 26, 31, 35, 41, 55, 65, 85, 102, 118, 151, 181, 201, 236, 281, 313, 365, 424, 495, 593, 688, 825, 978, 1181, 1374, 1650, 1948, 2323, 2682, 3175, 3680, 4314, 4930, 5718, 6546, 7532, 8557, 9777, 11067, 12622
Offset: 0

Views

Author

Gus Wiseman, Feb 10 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).

Examples

			The a(1) = 1 through a(11) = 8 partitions:
  1   .  .  22    221   3111   .  3311    333     3331     32222
            211                   41111   32211   33211    33221
                                                  42211    44111
                                                  322111   52211
                                                  511111   322211
                                                           332111
                                                           422111
                                                           3221111

Crossrefs

For mean instead of median: A114638, ranks A324570.
For parts instead of multiplicities: A360245, ranks A360249.
These partitions have ranks A360453.
For parts instead of distinct parts: A360456, ranks A360454.
A000041 counts integer partitions, strict A000009.
A116608 counts partitions by number of distinct parts.
A325347 counts partitions w/ integer median, strict A359907, ranks A359908.
A359893 and A359901 count partitions by median, odd-length A359902.
Cf. A000975, A027193, A240219, A326619/A326620, A359894, A359895, A360068, A360243, A360244, A360248.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], Median[Length/@Split[#]]==Median[Union[#]]&]],{n,0,30}]

A361854 Number of strict integer partitions of n such that (length) * (maximum) = 2n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 2, 2, 0, 5, 0, 6, 3, 5, 0, 11, 6, 8, 7, 10, 0, 36, 0, 14, 16, 16, 29, 43, 0, 21, 36, 69, 0, 97, 0, 35, 138, 33, 0, 150, 61, 137, 134, 74, 0, 231, 134, 265, 229, 56, 0, 650, 0, 65, 749, 267, 247, 533, 0, 405, 565
Offset: 1

Views

Author

Gus Wiseman, Mar 29 2023

Keywords

Comments

Also strict partitions satisfying (maximum) = 2*(mean).
These are strict partitions where both the diagram and its complement (see example) have size n.

Examples

			The a(n) strict partitions for selected n (A..E = 10..14):
  n=9:  n=12:  n=14:  n=15:  n=16:  n=18:  n=20:  n=21:  n=22:
--------------------------------------------------------------
  621   831    7421   A32    8431   C42    A532   E43    B542
        6321          A41    8521   C51    A541   E52    B632
                                    9432   A631   E61    B641
                                    9531   A721          B731
                                    9621   85421         B821
                                           86321
The a(20) = 6 strict partitions are: (10,7,2,1), (10,6,3,1), (10,5,4,1), (10,5,3,2), (8,6,3,2,1), (8,5,4,2,1).
The strict partition y = (8,5,4,2,1) has diagram:
  o o o o o o o o
  o o o o o . . .
  o o o o . . . .
  o o . . . . . .
  o . . . . . . .
Since the partition and its complement (shown in dots) have the same size, y is counted under a(20).

Crossrefs

For minimum instead of mean we have A241035, non-strict A118096.
For length instead of mean we have A241087, non-strict A237753.
For median instead of mean we have A361850, non-strict A361849.
The non-strict version is A361853.
These partitions have ranks A361855 /\ A005117.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, A058398 by mean.
A008289 counts strict partitions by length.
A102627 counts strict partitions with integer mean, non-strict A067538.
A116608 counts partitions by number of distinct parts.
A268192 counts partitions by complement size, ranks A326844.
Cf. A111907, A237755, A240850, A326849 A359897, A360068, A360071, A360243, A361848, A361851, A361852, A361906.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Length[#]*Max@@#==2n&]],{n,30}]
Previous Showing 11-14 of 14 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.