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-9 of 9 results.

A363943 Mean of the multiset of prime indices of n, rounded down.

Original entry on oeis.org

0, 1, 2, 1, 3, 1, 4, 1, 2, 2, 5, 1, 6, 2, 2, 1, 7, 1, 8, 1, 3, 3, 9, 1, 3, 3, 2, 2, 10, 2, 11, 1, 3, 4, 3, 1, 12, 4, 4, 1, 13, 2, 14, 2, 2, 5, 15, 1, 4, 2, 4, 2, 16, 1, 4, 1, 5, 5, 17, 1, 18, 6, 2, 1, 4, 2, 19, 3, 5, 2, 20, 1, 21, 6, 2, 3, 4, 3, 22, 1, 2, 7
Offset: 1

Views

Author

Gus Wiseman, Jun 29 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.
Extending the terminology introduced at A124943, this is the "low mean" of prime indices.

Examples

			The prime indices of 360 are {1,1,1,2,2,3}, with mean 3/2, so a(360) = 1.

Crossrefs

Positions of first appearances are 1 and A000040.
Before rounding down we had A326567/A326568.
For mode instead of mean we have A363486, high A363487.
For low median instead of mean we have A363941, triangle A124943.
For high median instead of mean we have A363942, triangle A124944.
The high version is A363944, triangle A363946.
The triangle for this statistic (low mean) is A363945.
Positions of 1's are A363949(n) = 2*A344296(n), counted by A025065.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363947 ranks partitions with rounded mean 1, counted by A363948.
Cf. A102627, A327473, A327476, A327482, A348551, A359889, A363727, A363951.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
meandown[y_]:=If[Length[y]==0,0,Floor[Mean[y]]];
Table[meandown[prix[n]],{n,100}]

A363944 Mean of the multiset of prime indices of n, rounded up.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 2, 5, 2, 6, 3, 3, 1, 7, 2, 8, 2, 3, 3, 9, 2, 3, 4, 2, 2, 10, 2, 11, 1, 4, 4, 4, 2, 12, 5, 4, 2, 13, 3, 14, 3, 3, 5, 15, 2, 4, 3, 5, 3, 16, 2, 4, 2, 5, 6, 17, 2, 18, 6, 3, 1, 5, 3, 19, 3, 6, 3, 20, 2, 21, 7, 3, 4, 5, 3, 22, 2, 2, 7
Offset: 1

Views

Author

Gus Wiseman, Jun 30 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.
Extending the terminology introduced at A124944, this is the "high mean" of prime indices.

Examples

			The prime indices of 360 are {1,1,1,2,2,3}, with mean 3/2, so a(360) = 2.

Crossrefs

Positions of first appearances are 1 and A000040.
Positions of 1's are A000079(n>0).
Before rounding up we had A326567/A326568.
For mode instead of mean we have A363487, low A363486.
For median instead of mean we have A363942, triangle A124944.
Rounding down instead of up gives A363943, triangle A363945.
The triangle for this statistic (high mean) is A363946.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363947 ranks partitions with rounded mean 1, counted by A363948.
A363949 ranks partitions with low mean 1, counted by A025065.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.
Cf. A051293, A124943, A215366, A327473, A327476, A327482, A359889, A362611, A363723, A363724, A363727, A363951.

Programs

  • Mathematica
    prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
meanup[y_]:=If[Length[y]==0,0,Ceiling[Mean[y]]];
Table[meanup[prix[n]],{n,100}]

A363949 Numbers whose prime indices have mean 1 when rounded down.

Original entry on oeis.org

2, 4, 6, 8, 12, 16, 18, 20, 24, 32, 36, 40, 48, 54, 56, 60, 64, 72, 80, 96, 108, 112, 120, 128, 144, 160, 162, 168, 176, 180, 192, 200, 216, 224, 240, 256, 288, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448, 480, 486, 504, 512, 528, 540, 560, 576, 600, 640
Offset: 1

Views

Author

Gus Wiseman, Jul 02 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:
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   56: {1,1,1,4}
   60: {1,1,2,3}
   64: {1,1,1,1,1,1}

Crossrefs

These partitions are counted by A025065.
Before rounding down we had A326567/A326568.
For mode instead of mean we have A360015, counted by A241131.
For median instead of mean we have A363488, counted by A027336.
Positions of 1's in A363943, triangle A363945.
For the usual rounding (not low or high) we have A363948, counted by A363947.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
For mean 2 instead of 1 we have A363950, counted by A026905 redoubled.
Cf. A051293, A327473, A327476, A344296, A359889, A360013, A363723, A363727, A363946, A363951.

Programs

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

Formula

a(n) = 2*A344296(n).

A363950 Numbers whose prime indices have rounded-up mean 2.

Original entry on oeis.org

3, 6, 9, 10, 12, 18, 20, 24, 27, 28, 30, 36, 40, 48, 54, 56, 60, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 144, 160, 162, 168, 176, 180, 192, 200, 208, 216, 224, 240, 243, 252, 264, 270, 280, 288, 300, 320, 324, 336, 352, 360, 384, 400, 416, 432, 448
Offset: 1

Views

Author

Gus Wiseman, Jul 05 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:
     3: {2}
     6: {1,2}
     9: {2,2}
    10: {1,3}
    12: {1,1,2}
    18: {1,2,2}
    20: {1,1,3}
    24: {1,1,1,2}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    36: {1,1,2,2}
    40: {1,1,1,3}
    48: {1,1,1,1,2}
    54: {1,2,2,2}
    56: {1,1,1,4}
    60: {1,1,2,3}
    72: {1,1,1,2,2}
    80: {1,1,1,1,3}
    81: {2,2,2,2}

Crossrefs

For mean 1 we have A000079 except 1.
Partitions of this type are counted by A026905 redoubled.
Equals the complement of A000079 in A344296.
Positions of 2's in A363944 (counted by column 2 of A363946).
For rounded mean 1 we have A363948, counted by A363947.
For rounded-down mean 1 we have A363949, counted by A025065.
The rounded-down or low version is A363954, counted by A363745.
A316413 ranks partitions with integer mean, counted by A067538.
A112798 lists prime indices, length A001222, sum A056239.
A326567/A326568 gives mean of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
Cf. A327473, A327476, A359889, A360005, A360013, A360015, A363727, A363943.

Programs

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

A363948 Numbers whose prime indices have mean < 3/2.

Original entry on oeis.org

2, 4, 8, 12, 16, 24, 32, 48, 64, 72, 80, 96, 128, 144, 160, 192, 256, 288, 320, 384, 432, 448, 480, 512, 576, 640, 768, 864, 896, 960, 1024, 1152, 1280, 1536, 1728, 1792, 1920, 2048, 2304, 2560, 2592, 2688, 2816, 2880, 3072, 3200, 3456, 3584, 3840, 4096, 4608
Offset: 1

Views

Author

Gus Wiseman, Jul 02 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 initial terms, prime indices, and means:
    2: {1} -> 1
    4: {1,1} -> 1
    8: {1,1,1} -> 1
   12: {1,1,2} -> 4/3
   16: {1,1,1,1} -> 1
   24: {1,1,1,2} -> 5/4
   32: {1,1,1,1,1} -> 1
   48: {1,1,1,1,2} -> 6/5
   64: {1,1,1,1,1,1} -> 1
   72: {1,1,1,2,2} -> 7/5
   80: {1,1,1,1,3} -> 7/5
   96: {1,1,1,1,1,2} -> 7/6

Crossrefs

These partitions are counted by A363947.
Prime indices have mean A326567/A326568.
For low mode we have A360015, high A360013.
Positions of 1's in A363489.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A360005 gives twice the median of prime indices.
A363949 ranks partitions with low mean 1, counted by A025065.
A363950 ranks partitions with low mean 2, counted by A026905 redoubled.
Cf. A051293, A124944, A327473, A327476, A327482, A359889, A363727, A363942, A363943, A363946, A363951.

Programs

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

A363954 Numbers whose prime indices have low mean 2.

Original entry on oeis.org

3, 9, 10, 14, 15, 27, 28, 30, 42, 44, 45, 50, 52, 63, 66, 70, 75, 81, 84, 88, 90, 100, 104, 126, 132, 135, 136, 140, 150, 152, 156, 189, 196, 198, 204, 208, 210, 220, 225, 234, 243, 250, 252, 260, 264, 270, 272, 280, 294, 297, 300, 304, 308, 312, 315, 330, 350
Offset: 1

Views

Author

Gus Wiseman, Jul 05 2023

Keywords

Comments

Extending the terminology of A124944, the "low mean" of a multiset is obtained by taking the mean and rounding down.

Examples

			The terms together with their prime indices begin:
     3: {2}
     9: {2,2}
    10: {1,3}
    14: {1,4}
    15: {2,3}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    42: {1,2,4}
    44: {1,1,5}
    45: {2,2,3}
    50: {1,3,3}
    52: {1,1,6}
    63: {2,2,4}
    66: {1,2,5}
    70: {1,3,4}
    75: {2,3,3}
    81: {2,2,2,2}
    84: {1,1,2,4}
    88: {1,1,1,5}
    90: {1,2,2,3}
   100: {1,1,3,3}

Crossrefs

Partitions of this type are counted by A363745.
Positions of 2's in A363943 (high A363944), triangle A363945 (high A363946).
For mean 1 we have A363949.
The high version is A363950, counted by A026905.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
A326567/A326568 gives mean of prime indices.
A363941 gives low median of prime indices, triangle A124943.
A363942 gives high median of prime indices, triangle A124944.
A363948 lists numbers whose prime indices have mean 1, counted by A363947.
Cf. A327473, A327476, A359889, A360013, A360015, A363488, A363951.

Programs

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

A363489 Rounded mean of the multiset of prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 2, 4, 1, 2, 2, 5, 1, 6, 2, 2, 1, 7, 2, 8, 2, 3, 3, 9, 1, 3, 4, 2, 2, 10, 2, 11, 1, 4, 4, 4, 2, 12, 4, 4, 2, 13, 2, 14, 2, 2, 5, 15, 1, 4, 2, 4, 3, 16, 2, 4, 2, 5, 6, 17, 2, 18, 6, 3, 1, 4, 3, 19, 3, 6, 3, 20, 1, 21, 6, 3, 3, 4, 3, 22, 1, 2, 7
Offset: 1

Views

Author

Gus Wiseman, Jul 07 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.
We use the "rounding half to even" rule, see link.

Examples

			The prime indices of 180 are {1,1,2,2,3}, with mean 9/5, which rounds to 2, so a(180) = 2.

Links

Crossrefs

Positions of first appearances are 1 and A000040.
Before rounding we had A326567/A326568.
For rounded-down: A363943, triangle A363945.
For rounded-up: A363944, triangle A363946.
Positions of 1's are A363948, complement A364059.
The triangle for this statistic (rounded mean) is A364060.
For prime factors instead of indices we have A364061.
A088529/A088530 gives mean of prime signature A124010.
A112798 lists prime indices, length A001222, sum A056239.
A316413 ranks partitions with integer mean, counted by A067538.
Cf. A327473, A327476, A327482, A359889, A360005, A363947, A363949, A363951.

Programs

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

A364059 Number of integer partitions of n whose rounded mean is > 1. Partitions with mean >= 3/2.

Original entry on oeis.org

0, 0, 1, 2, 3, 5, 9, 11, 18, 26, 35, 49, 70, 89, 123, 164, 212, 278, 366, 460, 597, 762, 957, 1210, 1530, 1891, 2369, 2943, 3621, 4468, 5507, 6703, 8210, 10004, 12115, 14688, 17782, 21365, 25743, 30913, 36965, 44210, 52801, 62753, 74667, 88626, 104874, 124070
Offset: 0

Views

Author

Gus Wiseman, Jul 06 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			The a(0) = 0 through a(8) = 18 partitions:
  .  .  (2)  (3)   (4)   (5)    (6)     (7)     (8)
             (21)  (22)  (32)   (33)    (43)    (44)
                   (31)  (41)   (42)    (52)    (53)
                         (221)  (51)    (61)    (62)
                         (311)  (222)   (322)   (71)
                                (321)   (331)   (332)
                                (411)   (421)   (422)
                                (2211)  (511)   (431)
                                (3111)  (2221)  (521)
                                        (3211)  (611)
                                        (4111)  (2222)
                                                (3221)
                                                (3311)
                                                (4211)
                                                (5111)
                                                (22211)
                                                (32111)
                                                (41111)

Links

Crossrefs

Rounding-up gives A000065.
Rounding-down gives A110618, ranks A344291.
For median instead of mean we appear to have A238495.
The complement is counted by A363947, ranks A363948.
A000041 counts integer partitions.
A008284 counts partitions by length, A058398 by mean.
A025065 counts partitions with low mean 1, ranks A363949.
A067538 counts partitions with integer mean, ranks A316413.
A124943 counts partitions by low median, high A124944.
Cf. A002865, A098859, A241131, A327482, A363723, A363724, A363731, A363946.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Round[Mean[#]]>1&]],{n,0,30}]

Formula

a(n) = A000041(n) - A363947(n).

A364060 Triangle read by rows where T(n,k) is the number of integer partitions of n with rounded mean k.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 2, 2, 0, 1, 0, 2, 4, 0, 0, 1, 0, 2, 5, 3, 0, 0, 1, 0, 4, 7, 0, 3, 0, 0, 1, 0, 4, 8, 5, 4, 0, 0, 0, 1, 0, 4, 14, 7, 4, 0, 0, 0, 0, 1, 0, 7, 21, 8, 0, 5, 0, 0, 0, 0, 1, 0, 7, 22, 11, 10, 0, 5, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Gus Wiseman, Jul 07 2023

Keywords

Comments

We use the "rounding half to even" rule, see link.

Examples

			Triangle begins:
  1
  0  1
  0  1  1
  0  1  1  1
  0  2  2  0  1
  0  2  4  0  0  1
  0  2  5  3  0  0  1
  0  4  7  0  3  0  0  1
  0  4  8  5  4  0  0  0  1
  0  4 14  7  4  0  0  0  0  1
  0  7 21  8  0  5  0  0  0  0  1
  0  7 22 11 10  0  5  0  0  0  0  1
  0  7 36 15 12  0  6  0  0  0  0  0  1
  0 12 32 36 14  0  6  0  0  0  0  0  0  1
  0 12 53 23 23 16  0  7  0  0  0  0  0  0  1
  0 12 80 30 27 19  0  0  7  0  0  0  0  0  0  1
Row n = 7 counts the following partitions:
  .  (31111)    (511)   .  (61)  .  .  (7)
     (22111)    (421)      (52)
     (211111)   (4111)     (43)
     (1111111)  (331)
                (322)
                (3211)
                (2221)

Links

Crossrefs

Row sums are A000041.
The rank statistic for this triangle is A363489.
The version for low mean is A363945, rank statistic A363943.
The version for high mean is A363946, rank statistic A363944.
Column k = 1 is A363947 (A026905 tripled).
A008284 counts partitions by length, A058398 by mean.
A026905 redoubled counts partitions with high mean 2, ranks A363950.
A051293 counts subsets with integer mean, median A000975.
A067538 counts partitions with integer mean, strict A102627, ranks A316413.
More triangles: A124943, A124944, A363952, A363953.
Cf. A002865, A025065, A237984, A327472, A327482, A363723, A363724, A363731.

Programs

  • Mathematica
    Table[If[n==k==0,1,Length[Select[IntegerPartitions[n], Round[Mean[#]]==k&]]],{n,0,15},{k,0,n}]
Showing 1-9 of 9 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.